what is wrong with this code ????

Hi All,

What is wrong with this code :
------------------------ Start ------------------------------
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click

If IsNull(Me.cmbShip) Then
MsgBox "Please select vessel "
Me.cmbShip.SetFocus
Exit Sub
Else
'**** Save Changes ****
Dim db As Database, rsCust As Recordset
Set db = CurrentDb
Dim strSQL As String

strSQL = "UPDATE tblShip_Reg "
strSQL = strSQL & "SET Ship= """ & Me![Ship] & """"
strSQL = strSQL & ", ShipCode= """ & Me![ShipCode] & """"
strSQL = strSQL & ", Ship_Type= """ & Me![Ship_Type] & """"
strSQL = strSQL & ", Ship_ID= " & Me![Ship_ID]


MsgBox strSQL

db.Execute strSQL

MsgBox "Changes have been saved."

DoCmd.Close
DoCmd.OpenForm "frmMainMenu"
End If
Exit_cmdSave_Click:
Exit Sub

Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click
End Sub
---------------------------- end code------------------------
I dont get any error,can any one tell me what is wrong with code ?
Thanks

still asking what's wrong if you don't get any error???

strSQL = strSQL & "SET Ship= """ & Me![Ship] & """"
you're having too many """"" in the wrong place?

This might work? strSQL = strSQL & "SET Ship =" & Me![Ship]

There's a "close" for every "open".
There's a "open" for every "close".