Excel Access SQL Runtime-error

Hej

Følgende sql som jeg forsøger at bruge til at indsætte text fra textbox1 viser run-time error: Type Mismatch og gulfarver: Set rs= db.Openrecordset etc.

Er der en der kan se fejlen.

vh Steen

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim db As Database, rs As Recordset, sql As String
Dim Tlfnr As String
Tlfnr = TextBox1.Text
'On Error GoTo slut
   
    Dim sPath As String
    sPath = ActiveWorkbook.Path & "\"
   
    Set db = OpenDatabase(sPath & "GPS.mdb")
    ' open the Database
    Set rs = db.OpenRecordset("LData", dbOpenTable)
    ' get all records in a table
   
    Dim txt As String
    txt = "INSERT INTO LData (Tlf) "
    txt = txt & "VALUES ('" & Tlfnr & "')"
   
    sql = txt
    db.Execute (sql)
   
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Exit Sub
   
slut:
MsgBox ("Fejl ved Textbox 1 opstået")
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing

End Sub