1)
codice:
 Try

            'creo un oggetto di tipo jetEngine

            Dim ObjCompatta As JRO.JetEngine

            ObjCompatta = New JRO.JetEngine

 

            'utilizzo il metodo compactdabaset per comprimerlo

            ObjCompatta.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database.mdb", _

            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\database2.mdb;Jet OLEDB:Engine Type=5")

 

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Information, "Errore")

        End Try
2)
se imposti il width del datagrid non dovresti avere problemi