Dim conn As New OleDbConnection
 Dim strSQL As String = String.Empty
 Dim cmd As OleDbCommand
 Dim adapter As OleDbDataAdapter
 Dim ds As DataSet
 
'hier steht meine SQL Abfrage
 
 
 cmd = New OleDbCommand(strSQL, conn)
 adapter = New OleDbDataAdapter(cmd)
 ds = New DataSet
 adapter.Fill(ds)
 Me.gridResults.DataSource = ds.Tables(0)