โค้ด อัพเดต error คับ พอดีว่ามือใหม่ ไม่ค่อยจะเก่ง ช่วยหน่อยน่ะครับ สอบโปรเจค อีกไม่กี่วันแล้ว

Query = Query + " Sex = '" + txtSexCus + "' "

        Query = "UPDATE Customer SET CustomerName ='" + txtNameCus.Text + "'"
        Query = Query + "Sex = " + txtSexCus.Text
        Query = Query + "Address = " + txtAddressCus.Text
        Query = Query + "Telephone = " + txtTelCus.Text
        Query = Query + " WHERE CustomerID = " + txtIdCus.Text
        Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
        MsgBox(Query)
        Dim i As Integer = cmd.ExecuteNonQuery()
        'If (i > 0) Then
        'lblMsg.Text = "Record is Successfully Updated"
        ' lblMsg.Text = "Record is not Updated"        
        'End If        
        con.Close()

        Query = "UPDATE Customer SET CustomerName ='" + txtNameCus.Text + "'"
        Query = Query + "Sex = '" + txtSexCus.Text + "'"
        Query = Query + "Address = "' + txtAddressCus.Text + "'"
        Query = Query + "Telephone = '" + txtTelCus.Text + "'"
        Query = Query + " WHERE CustomerID = '" + txtIdCus.Text + "'"
        Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
        MsgBox(Query)
        Dim i As Integer = cmd.ExecuteNonQuery()
        'If (i > 0) Then
        'lblMsg.Text = "Record is Successfully Updated"
        ' lblMsg.Text = "Record is not Updated"        
        'End If        
        con.Close()

Query = "UPDATE Customer SET CustomerName ='" + txtNameCus.Text + "'"
Query = Query + ",Sex = '" + txtSexCus.Text + "'"
Query = Query + ",Address = "' + txtAddressCus.Text + "'"
Query = Query + ",Telephone = '" + txtTelCus.Text + "'"
Query = Query + " WHERE CustomerID = '" + txtIdCus.Text + "'"
Dim cmd As MySqlCommand = New MySqlCommand(Query, con)
MsgBox(Query)
Dim i As Integer = cmd.ExecuteNonQuery()
'If (i > 0) Then
'lblMsg.Text = "Record is Successfully Updated"
' lblMsg.Text = "Record is not Updated"        
'End If        
con.Close()