Dim conanbieter As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + Application.StartupPath + _
  "\DatenbankGas.mdb" & ";Jet OLEDB:Database Password= *******")
conanbieter.Open()
Dim comanbieter As OleDb.OleDbCommand = New OleDb.OleDbCommand("Select" & _
  "Anbieter.Name FROM(Anbieter) ORDER BY Anbieter.Name", conanbieter)
 
.....