อยากให้พิมพ์ หมายเลขประจำตัวแล้ว เวลากด Enter ถ้ามีข้อมูลให้แสดงออกมาใน Textbox ถ้าไม่มีข้อมูลก็ให้บันทึกใหม่ ได้

    Public Sub LoadInfor()

        Dim objConn As New SqlConnection
        Dim objCmd As New SqlCommand
        Dim dtAdapter As SqlDataAdapter
        Dim dt As New DataTable
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;Database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        strSQL = "SELECT * FROM member WHERE Username = '" & strUser & "' "

        dtAdapter = New SqlDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Me.lblUser.Text = strUser
            Me.lblName.Text = dt.Rows(0)("Name")
            Me.lblEmail.Text = dt.Rows(0)("Email")
        End If

        objConn.Close()
        objConn = Nothing
    End Sub