Private Sub Command1_Click()
oConn1.Close
 
With oConn1
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "C:\spaß\data\Spaß.mdb"
    .Properties("Persist Security Info") = False
    .Properties("Jet OLEDB:Database Password") = "Spaß"
    .Open
End With
 
sSQL = "SELECT * FROM Customer_Master where Customer_Code='" & SatzNr.Text & "'"
 
oRs2.CursorLocation = adUseClient
oRs2.Open sSQL, oConn1, adOpenStatic, adLockOptimistic
 
Print oRs.RecordCount
Print oRs2.RecordCount
End Sub
 
Private Sub Form_Load()
Set oConn = New ADODB.Connection
Set oConn1 = New ADODB.Connection
 
oConn1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & App.Path & "\data\spaßsetup.mdb;" & _
  "Persist Security Info=False;"
 
With oConn1
  .CursorLocation = adUseClient
  .Provider = "Microsoft.Jet.4.0"
  .Properties("Data Source") = "C:\spaß\data\spaßsetup.mdb"
  .Properties("Persist Security Info") = False
  .Open
End With
sSQL2 = "Select * From Spaß_System_File"
oRs2.CursorLocation = adUseClient
oRs2.Open sSQL2, oConn1, adOpenStatic, adLockOptimistic
 
 
With oConn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = "C:\spaß\data\spaß.mdb"
    .Properties("Persist Security Info") = False
    .Properties("Jet OLEDB: Database Password") = "Spaß"
    .Open
End With
 
sSQL = "SELECT * FROM Customer_Master" ' where SatzNr='" & SatzNr.Text & "'"
 
oRs.CursorLocation = adUseClient
oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
 
End Sub