รบกวนช่วยแก้ไขโค้ด update ใน VB6 หน่อยคับ มันไม่ update อะไรเลยคับ

Private Sub Update_Cus_Click()
Dim sqlStr As String
    Dim conn As New ADODB.Connection
    Dim sqlCm As New ADODB.Command
    Dim rs As New ADODB.Recordset
    
    
    sqlStr = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Port=3307;Database=vb_project;Uid=root;Pwd=admin;"
    
    conn.ConnectionString = sqlStr
    
    conn.Open
    
    Dim Statement As String
    
    
    
     Statement = "UPDATE customer SET " & _
    "CUSTOMER_NAME='" & Cus_name.Text & "', " & _
    "CP_NAME='" & CP_name.Text & "', " & _
    "USER_DATE='" & User_date.Text & "'," & _
    "USER_ID='" & User_ID.Text & "'" & _
    "WHERE CUSTOMER_CODE='" & Val(Cus_code.Text) & "'"

   
     conn.Execute Statement, , adCmdText
     
     Call ConnToDB
     
     DataGrid1.Refresh

    conn.Close
End Sub