Change Password form

[resego]

I give up I have been fighting this error message the whole day after getting everying running in the development DB now it gives an error when I try to encoporate in the operational DB.

Help would be highly appreciated

screen shots in the attachment and code below


Private Sub Command6_Click()

Dim strOldPassword As String
Dim strSQL As String


strOldPassword = DLookup("strEmpPassword", "PPADB Staff List", "[lngEmpID]=" & Me.Combo7)



Select Case strOldPassword
Case Is = Me.txtEmpPassword
strSQL = "UPDATE 'PPADB Staff List' SET strEmpPassword='" & Me.Text2 & "' WHERE lngEmpID=" & Me.Combo7
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox "Password has been changed", vbInformation, "Password Changed"
Case Is <> Me.txtEmpPassword
MsgBox "The Old Password doesnot match", vbInformation, "Type Correct Old Password"

End Select

End Sub

[resego]

sorry I could upload the screenshot, the error is as follows

runtime error '3450'

syntax arror in query. incomplete query


and the following line get highlighted

DoCmd.RunSQL strSQL

but I suspect error in the following line

strSQL = "UPDATE 'PPADB Staff List' SET strEmpPassword='" & Me.Text2 & "' WHERE lngEmpID=" & Me.Combo7