Dim con As New ADODB.Connection
con.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
  datadir & "\datenbank.mdb; Jet OLEDB:Database Password = " & passwort
con.Open
 
Dim svPers As New ADODB.Recordset
 
Dim test As String
 
 
svSQL = "SELECT * FROM pers WHERE nr = '00000000';"
svPers.Open svSQL, con
test = svPers.Fields("name")
MsgBox (test)
 
con.Execute "INSERT INTO KK (nr, name) VALUES ('00000000','Meier');"
con.Close