ช่วยแก้โค้ดทีคับ มันไม่ error นะ แต่มัน แก้ไขข้อมูลไม่ได้อะคับ ช่วยดู

strSQL = "UPDATE RegisterManager SET " & _
        " Manager_ID = '" & Me.txtManager_ID.Text & "'" & _
        ",M_User = '" & Me.txtM_UserName.Text & "'" & _
        ",M_Password = '" & Me.txtM_Password.Text & "'" & _
        ",M_Name = '" & Me.txtM_Name.Text & "'" & _
        ",M_Lname = '" & Me.txtM_Lname.Text & "'" & _
        ",M_Phone = '" & Me.txtM_Phone.Text & "'" & _
        ",M_Email = '" & Me.txtM_Email.Text & "'" & _
        ",M_Location = '" & Me.txtM_Location.Text & "'" & _
        ",M_Department = '" & Me.txtM_Department.Text & "'" & _
        " WHERE Manager_ID = '" & Me.txtManager_ID.Text & "'"

        objCmd = New SqlCommand

        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        Me.pnlAdd.Visible = False
        Try
            objCmd.ExecuteNonQuery()
            Me.lblStatus.Text = "Record Updated"
            Me.lblStatus.Visible = True
        Catch ex As Exception
            Me.lblStatus.Text = "Record can not update"
        End Try
    End Sub
    Sub Page_UnLoad()
        objConn.Close()
        objConn = Nothing
    End Sub