Indlæs data + VB + SQL + ACCESS - Hjælp !

Har en DB med navnet ProDB, og i denne db findes en tabel, ved navn " program " og i denne tabel findes 5 felter = Nr (Autonummerering), Navn, Produkt ID / CD Key, Produktions år, Lokation. Når jeg vil skrive i den bruger jeg koden herunder :

Set con = New Adodb.Connection
'Binder databasen til variablen mystring

mystring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\F34945\Desktop\Program oversigt\Db\ProDB.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=True;Jet OLEDB:Database Password=test"
con.Open (mystring)

Dim PresstrechedOption As Integer

Set rsAddKomp = New Adodb.Recordset
rsAddKomp.LockType = adLockOptimistic

SQL = "SELECT * from program"
rsAddKomp.Open SQL, mystring


rsAddKomp.AddNew
    rsAddKomp.Fields("Navn") = Text1.Text
    rsAddKomp.Fields("Produktions år") = Text2.Text
    rsAddKomp.Fields("Produkt ID / CD Key") = Text3.Text
    rsAddKomp.Fields("Lokation") = Text4.Text
rsAddKomp.Update
rsAddKomp.Close

Set rsAddKomp = Nothing
Set con = Nothing

Men den vil bare ikke gøre som jeg vil have den til ... den melder bare fejl ... nogle der kan svare mig på hvorfor ...