Indsætte data i en Access DB med Microsoft Jet

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscsection1_ado.asp

http://www.vbcode.com/asp/showzip.asp?ZipFile=ado.zip&theID=44

I den opgave jeg er i gang med, skal det kodes, og ikke ved at bruge et ActiveX komponent...... Hvad skal jeg tilføje til min kode ??

ActiveX Data Objects >>>>>>(ADO)<<<<<<<

ADO is used for accessing databases!

Er det dit recordset eller din connetion du gerne vil skrive igennem
sim splat as new adodb.connection
splat.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\system.mdb"
splat.execute "delete from tabel"

skwat: Opret et svar !

DataPath = "..\Projekt\"
    Dim Conn As New adodb.Connection
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & "V97.mdb"
    Set rs = Conn.Execute("SELECT * From Lånere")
    rs.AddNew
        rs("Fornavn") = Form4.Text1.Text
        rs("Efternavn") = Form4.Text2.Text
        rs("Telefonnummer") = Form4.Text3.Text
        rs("Adresse") = Form4.Text4.Text
        rs("Postnr") = Form4.Text5.Text
        rs("CPR-Nr") = Form4.Text6.Text
    rs.Update

^^ Jeg får at vide at: "Det aktuelle postsæt understøtter ikke opdatering. Dette skyldes en begrænsning af provideren eller den markerede låsetype"

Hvad gør jeg galt ??

trlalala

kig på rs.LockType

rs.locktype = adLockBatchOptimistic