Connection problem

Jeg har lidt problemer med nogle sql kald.
Det hele kører fra en ubunden formular med tabeller i en MSSql database.

Hvis jeg kører følgende sql får jeg en fejl.

lSql = "Update Tbl_ProdLog Set PL_MaskinTid='" & lMaskinTid & "' Where PL_No=" & Me.txtPL_No
CurrentProject.Connection.Execute lSql

Delete giver samme fejl som Update.

Fejlen er som følgende.
Run-time error ‘-2147418113(8000ffff)’:
Catastrophic failure.

Hvis jeg starter med Insert Into i en anden sub, er der efterfølgende ikke nogle problemer med hverken Update eller Delete.