Fejl i UPDATE-sætning

Hey, er der nogen der ved hvorfor dette ikke virker?... den kommer med fejlen: Der er en syntaks fejl i UPDATE-sætningen.


Private Sub Command4_Click()

Set Conn = CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & App.Path & "\hasle aku konv.mdb"
Conn.Open DSN

strSQL = "UPDATE klienter SET navn = '" & Text1.Text & "', gade = '" & Text2.Text & "', [by] = '" & Text3.Text & "', telefon privat = '" & Text4.Text & "', telefon arbejde = '" & Text5.Text & "', telefon læge = '" & Text6.Text & "', cpr = '" & Text7.Text & "', stilling = '" & Text8.Text & "', familie = '" & Text9.Text & "' WHERE id = '" & Label16.Caption & "'"
Conn.Execute (strSQL)

Conn.Close
Set Conn = Nothing

End sub


//Bjarke - [KLEIFDESIGN]