'SQL-Anweisung konfigurieren
  Dim strSQL as string = "SELECT * FROM benutzerTabelle"

  'Objekt erzeugen und Eigenschaften festlegen
  Dim objCmd as  New OleDbDataAdapter()
  objCmd.SelectCommand.Connection = Verbind
  objCmd.SelectCommand.CommandText = strSQL

  'oder
  'Dim objCmd as New OleDbDataAdapter _
  '   (strSQL, Verbind)

  'oder
  'Dim objCmd as New OleDbDataAdapter( _
  '   strSQL, strVerbindungszeichenkette)