Const s As String = Provider=Microsoft.Jet.OLEDB.4.0;Data _
     Source=C:\Dokumente und Einstellungen\Witt\Eigene Dateien\Visual Studio _
     Projects\Schnittstelle_prototyp\RPX-Entry.mdb;Persist Security _
     Info=False;Jet OLEDBatabase Password=kbl"
   Dim objConn As New OleDb.OleDbConnection()
   objConn.Open()
   objConn.Close()