Runtime Error 13 i access 2000

Er er nogen der har forslag til hvad
jeg skal gøre for at rette fejlen

Dim tempDB As Database
Dim tabel, tabel2 As Recordset
Dim x As Byte


Set tempDB = DBEngine.Workspaces(0).OpenDatabase(\"E:\\KANTINEBON\\KantineADM.mdb\")
Set tabel = tempDB.OpenRecordset(\"StartTempScl\") \' Den stopper her
Her får jeg fejlen Runtime Error 13
Type mismatch. Er der nogen der har et
forslag til hvad jeg gør galt.
StartTempScl og tempSCL er to identisk tabeller der ligger i en særskildt mdb fil.

Set tabel2 = tempDB.OpenRecordset(\"tempSCL\")

tabel.MoveFirst
Do
  totkøb = 0
  For x = 1 To 13
    tabel2.AddNew
    tabel2![Navn] = tabel![Navn]
    tabel2![personnr] = tabel![personnr]
    tabel2![løntype] = 4
    \' tabel2![Dato] = Til_Dato
    tabel2![lønkode] = 8695
    tabel2![sum_pris] = tabel![sum_pris]
    totkøb = totkøb + tabel![sum_pris]
    tabel2.Update
    tabel.MoveNext
    If tabel.EOF Then
        x = 14
    End If
  Next x
 
  DoCmd.OpenReport \"SCL_kørsel_r\", acViewPreview
 
  DoCmd.OpenQuery \"slet_scl_q\"

Loop Until tabel.EOF