Dim ds_BestellNr As New DataSet 
Dim Conn As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=..\db\HSKunden.mdb") 
Dim SelectString As String = "SELECT * FROM Bestellungen WHERE BestellNr='" & _
BestellNr & "%' ORDER BY BestellNr"
Dim da_BestellNr As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter( _
SelectString, Conn)
 
Try 
  da_BestellNr.Fill(ds_BestellNr) 
  Me.DataGrid1.DataSource = ds_BestellNr.Tables(0) 
Catch ex As Exception 
  MsgBox(ex.Message) 
End Try