Vad tusan är det för problem på detta??

<code>
Dim ConnectionString
Set con = CreateObject("ADODB.Connection")
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Data.mdb"
con.Open ConnectionString
Set rst = con.Execute("SELECT * FROM Projekt WHERE namn = '" & LabProject(Index).Caption & "'")
txtP= rst("P")
txtd = rst("d")
txtK = rst("k")
txtko = rst("ko")
con.Execute "UPDATE Projekt SET senastelast = " & date
Set rst = Nothing
Set con = Nothing

Det är den sista som ska uppdatera datumet som jag inte får att fungerar.

Jag har försökt med:

'con.Execute "UPDATE Projekt SET senastelast= " & date & " WHERE namn= '" & LabProject(Index).Caption & "'"

Den säger att en parantes förväntas??
</code>

Om senastelast är ett datumfält ska det vara såhär:

con.Execute "UPDATE Projekt SET senastelast= #" & date & "# WHERE namn= '" & LabProject(Index).Caption & "'"

Om det är textfält ska det vara såhär:

con.Execute "UPDATE Projekt SET senastelast= '" & date & "' WHERE namn= '" & LabProject(Index).Caption & "'"


/Johan