Private Sub SQLAbfrage
 
Dim Conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
 
With Conn
    .Provider= "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
     "Data Source=c:\Beispiel.mdb;" & _
     "User ID='PR';" & _
     "Password='123';"
    .Properties("Prompt") = promp
    .Properties("Jet OLEDB:System Database") = "c:\Beispiel.mdw"
    .Properties("Persist Security Info") = True+
    .Mode = adModeShareDenyNone
    .Open
End With
 
RS.Open "Select * from Tabelle1", Conn, adOpenDynamic, adLockOptimistic