Dim con As New ADODB.Connection
con.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
  datadir & "\person.mdb; Jet OLEDB:Database Password = " & passwort
con.Open
 
 
Dim svPE As New ADODB.Recordset
svSQL = "INSERT INTO pers (nr, vorname, name) VALUES (1,'Hans', 'Meier');"
svPE.Open svSQL, con
svPE.Close