ขอคำสั่ง If หน่อยครับพอดีเขียน VB.Net Register ขึ่นมาแล้วมันไม่มี If สมัครไอดีซํ่าได้ขอบคุณครับ

    Sub btnSave_Click(sender As Object, e As EventArgs)        
			Dim intNumRows As Integer
			strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Me.txtCustomerID.Text &"' "		
			objCmd = New MySqlCommand(strSQL, objConn)
			intNumRows = objCmd.ExecuteScalar()

			IF intNumRows > 0 Then
				Me.pnlAdd.Visible = False
				Me.lblStatus.Visible = True
				Me.lblStatus.Text = "CustomerID already exist."
			Else		
				strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
				" VALUES " & _
				" ('" & Me.txtCustomerID.Text & "','" & Me.txtName.Text & "','" & Me.txtEmail.Text & "', " & _
				" '" & Me.txtCountryCode.Text & "','" & Me.txtBudget.Text & "','" & Me.txtUsed.Text & "')"

				objCmd = New MySqlCommand
				With objCmd
				   .Connection = objConn
				   .CommandText = strSQL
				   .CommandType = CommandType.Text		   
				End With
								
				Me.pnlAdd.Visible = False
				Try
					objCmd.ExecuteNonQuery()            
					Me.lblStatus.Text = "Record Inserted"
					Me.lblStatus.Visible = True
				Catch ex As Exception
					Me.lblStatus.Visible = True
					Me.lblStatus.Text = "Record can not insert Error ("& ex.Message &")"
				End Try

		End IF

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As MySqlCommand = New MySqlCommand
        Dim SQLStatement As String = "INSERT INTO user2 (username, password) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        SaveNames(SQLStatement)
    End Sub

'อันนี้ผมลองเป็น SqlClient นะครับ
 Public Function SaveNames(ByRef SQLStatement As String) As Boolean

        Dim cmd As New SqlCommand
        Dim tr As SqlTransaction

        tr = SqlConnection.BeginTransaction()

        Try
            With cmd
                .CommandText = SQLStatement
                .CommandType = CommandType.Text
                .Connection = SqlConnection
                .Transaction = tr
                .ExecuteNonQuery()
            End With

            tr.Commit()
            Return True

        Catch ex As Exception
            tr.Rollback()
            SqlConnection.Close()
            Return False
        End Try
       
    End Function

' เรียกใช้ function SaveNames
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As MySqlCommand = New MySqlCommand
        Dim SQLStatement As String = "INSERT INTO user2 (username, password) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "')"
        'เรียกใช้ function SaveNames
        If SaveNames(SQLStatement) = True Then
            MsgBox("สมัครสมาชิกสำเร็จ !", MsgBoxStyle.Information, "บันทึกข้อมูล")
        Else
            MsgBox("สมัครสมาชิกไม่สำเร็จ !", MsgBoxStyle.Critical, "บันทึกข้อมูล")
        End If
    End Sub