Fai così:
Dim rs As ADODB.Recordset
Dim db As ADODB.Connection
Dim cnn As String
Dim D As String
D = percorso & "\dati.mdb"
cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & D & ";Mode=ReadWrite;Persist Security Info=False"
Set db = New ADODB.Connection
db.Open cnn
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "clienti", cnn, , , adCmdTable
rs.addnew
rs!nomecampo=valore
rs.update
per leggere fai il ciclo e gli passi:
nome=rs!nomecampo
rs.close
db.close
se hai problemi.. mandami una mail.
ciao
ringhio