Dim strVerbindungszeichenkette as string = _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Data Source=C:\ASPNET\daten\banking.mdb")
  Dim Verbind as New OleDbConnection( _
     strVerbindungszeichenkette)
  Verbind.Open()
  ...
  Verbind.Close()