Database fejl run time error 3426

Hej
Nu kan jeg ikke af kodestumperne se om du får koblet fornuftigt op til databasen, som vel er en access-database(.mdb)? Hvis det er tilfældet så:
I referencer bør der være en reference til dao3,6
Her er min kode til en tilsvarende manøvre:
Dim db As database
Dim rst As Recordset
Dim wks As Workspace
Set wks = DBEngine.Workspaces(0)
Set db = wks.OpenDatabase("c:\databasenssti\datanavn.mdb")
Set rst = db.OpenRecordset("dintabelnavn")
rst.addnew
'her kommer dine data
vIn.Recordset("Hylde") = hylde.Text
    vIn.Recordset("NR") = nr.Text
    vIn.Recordset("Type") = typea.Text
    vIn.Recordset("Vin") = vine.Text

rst.update
rst.close
db.close
VH AZ

har brugt komponentet "Data" som jeg plejer.
og den fungere fint i andet form, hvor jeg henter data fra db.

så i min kode står der abselut intet om forbindelsen til db

kilde kode på hele form2

Private Sub Command1_Click()
  vIn.Recordset.AddNew
    vIn.Recordset("Hylde") = hylde.Text
    vIn.Recordset("NR") = nr.Text
    vIn.Recordset("Type") = typea.Text
    vIn.Recordset("Vin") = vine.Text
    vIn.Recordset("Årgang") = årgang.Text
    vIn.Recordset("Pris") = pris.Text
    vIn.Recordset("Land") = land.Text
    vIn.Recordset("Distrikt") = distrikt.Text
    vIn.Recordset("Købt") = købt.Text
    vIn.Recordset("A1") = a1.Text
    vIn.Recordset("A3") = a2.Text
    vIn.Recordset("A3") = a3.Text
    vIn.Recordset("A4") = a4.Text
    vIn.Recordset("A5") = a5.Text
    vIn.Recordset("A6") = a6.Text
    vIn.Recordset("B1") = b1.Text
    vIn.Recordset("B2") = b2.Text
    vIn.Recordset("B3") = b3.Text
    vIn.Recordset("B4") = b4.Text
    vIn.Recordset("B5") = b5.Text
    vIn.Recordset("B6") = b6.Text
  vIn.Recordset.Update
  Form1.Show
  Form2.Hide
End Sub


Private Sub Command2_Click()
Form1.Show
Form2.Hide
End Sub

Private Sub Form_Load()
    hylde.Text = " "
    nr.Text = 0
    typea.Text = " "
    vine.Text = " "
    årgang.Text = 0
    pris.Text = 0
    land.Text = " "
    distrikt.Text = " "
    købt.Text = " "
    a1.Text = " "
    a2.Text = " "
    a3.Text = " "
    a4.Text = " "
    a5.Text = " "
    a6.Text = " "
    b1.Text = " "
    b2.Text = " "
    b3.Text = " "
    b4.Text = " "
    b5.Text = " "
    b6.Text = " "
End Sub

hat fundet fejlen.. havde nogle felter i db. som ikke var med da jeg gemte.

og s¨har jeg fjernet det udnødvendige  *.text = " "