cmq puoi fare cosi:

objConn = New OleDbConnection(ConnectionString)
Dim ObjCmd As New OleDbDataAdapter(strSelect, objConn)
'Riempo l'oggetto DataSet
Dim ds As DataSet = New DataSet()
ObjCmd.Fill(ds, strTabella)
datagrid1.datasource = ds.Tables(strTabella).DefaultView
datagrid1.databind()