Notes

Sitter i VB och försöker att uppdatera en Notes-db. Har svårt att köra en update med fler än ett WHERE-villkor. Jag använder mig av NotesSql. Inparameterna är det inte fel på.
Koden jag inte får att funka är följande:

Private Sub contactUpdate(sLastName, sFirstName, sTitel, sdirPhone, sEmail, sCompany)
SQL = "Update Person Set LastName = '" & sLastName & "', FirstName = '" & sFirstName & "', JobTitle = '" & sTitel & "', OfficePhoneNumber = '" & sdirPhone & "', MailAddress = '" & sEmail & "', CompanyName = '" & sCompany & "' where LastName = '" & sLastName & "' AND FirstName = '" & sFirstName & "'"

cmd.CommandText = SQL
cmd.CommandType = adCmdText
cmd.Execute