non so se si possa aiutare:
codice:
Private ds As New DataSet()
'Private TableAlradyAdded As Boolean

Public ReadOnly Property StringaConnessione$()
	Get
		Return "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\DATI\test\test.mdb;Mode=Share Deny None;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"
	End Get
End Property

Private Sub griglia_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
	CreateDataSet()
	InitializeBinding()

End Sub

Sub CreateDataSet()
	Dim cn As New OleDbConnection(StringaConnessione)
	cn.Open()
	Dim da As New OleDbDataAdapter("SELECT * FROM CAMPI", cn)
	da.Fill(ds, "campi")
	cn.Close()

End Sub

Sub InitializeBinding()
	Me.DataGrid1.DataSource = ds
	Me.DataGrid1.DataMember = "campi"

End Sub