Excel og Access SQL

Hej

Jeg har en projektmappe (kalender) der indsætter: "Mobil, Dato, Tid, Tekst" vha SQL.
Følgende kode kaldes fra Worksheet_Change. Den skal bruges når tekstfeltet ændres hvor Mobil, Dato og Tid derfor er uændret. Koden fungerer ikke men måske en eller anden kan hjælpe :0)

Sub UpdateKKalender()

'On Error Resume Next
    Dim rsData As ADODB.Recordset
    Dim szConnect As String
    Dim szSQL As String, tSQL As String, uSQL As String, vSQL As String
    Dim iBox As String
    Dim sPath As String
    Dim Tlfno As String
   
   
    Tlfno = ActiveWorkbook.Sheets("1. Kvartal").Range("AL3")
    sPath = ActiveWorkbook.Path & "\"
   
    ' Create the connection string.
    szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & sPath & "gps.mdb;"

    szSQL = "UPDATE KKalender SET Tekst = ('" & Tekst & "') WHERE (Mobil, Dato, Tid)  =  ('" & Tlfno & "','" & Dato & "','" & Tid & "')"

    Set rsData = New ADODB.Recordset
    rsData.Open szSQL, szConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
   
    Set rsData = Nothing

End Sub