นี้โค้ดครับ
Imports System.Data
Imports System.Data.OleDb
Partial Class Regis
    Inherits System.Web.UI.Page
    Dim StrConn As String = _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=|DataDirectory|\CartoonDB.accdb;" & _
    "Persist Security Info=False;"
    Dim myconn As New OleDbConnection(StrConn)
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If SearchData(Txtid.Text) Then
            myconn.Open()
            Dim cmd As New OleDbCommand _
            ("INSERT INTO Customer (Username,Password,CustName,CustAdd,CustTel,CustEmail)" & _
              "  VALUES ('" & Txtid.Text & "','" & _
                              Txtpass.Text & "','" & _
                              Txtname.Text & "','" & _
                              Txtadd.Text & "','" & _
                               Txttel.Text & "','" & _
                                Txtemail.Text & "')", myconn)
            cmd.ExecuteNonQuery() <<<<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<เออเร่อตรงนี้ครับ งงมาก
            myconn.Close()
            Label11.Text = "สมัครสมาชิกสำเร็จ"
        Else
            Label11.Text = "สมัครสมาชิกไม่สำเร็จ *ตรวจสอบข้อมูลอาจตรงกับข้อมูลสมาชิกท่านอื่น*"
        End If

    End Sub
    Function SearchData(ByVal username As String) As Boolean
        Dim StrSQL As String = "Select Count(*) From Customer " & _
           "where  Username ='" & username & "'"
        myconn.Open()
        Dim mycommand As New OleDbCommand(StrSQL, myconn)
        Dim Counter As Integer = mycommand.ExecuteScalar()
        myconn.Close()
        If Counter >= 1 Then
            Return False
        Else
            Return True
        End If
    End Function
    
End Class

อยากทราบวิธีแก้ครับ เป็นเพราะโปรแกรม หรือโค้ดครับ