[VB.NET] ส่งค่าข้ามฟอร์มมาเป็นเงื่อนไข where ในคำสั่ง sql และนำข้อมูลมาแสดงใน textbox แต่ข้อมูลไม่ขึ้น

Imports System.Data.OleDb
Imports System.Data
Public Class frmEdit
    
    Private _strCustomerID As String = String.Empty

    Public Sub New(ByVal strCustomerID As String)

        ' This call is required by the designer.
        InitializeComponent()
        _strCustomerID = strCustomerID

    End Sub

    Private Sub frmEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim objConn As New OleDbConnection
        Dim objCmd As New OleDbCommand
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable
        Dim strConnString, strSQL As String

        strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database.accdb;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        strSQL = "SELECT * FROM member WHERE CustomerID = '" & _strCustomerID & "' "
        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Me.txtUsername.Text = dt.Rows(0)("Username")
            Me.txtName.Text = dt.Rows(0)("Name")
            Me.txtEmail.Text = dt.Rows(0)("Email")
            Me.txtCountry.Text = dt.Rows(0)("CountryCode")
            Me.txtBudget.Text = dt.Rows(0)("Telephone")
            Me.txtUsed.Text = dt.Rows(0)("Sex")
            Me.DateTimePicker1.Value = dt.Rows(0)("DOB")

        End If
        objConn.Close()
        objConn = Nothing
    End Sub
End Class

Dim frm As New frmEdit(txt_id.Text)
frm.Show()
Me.Hide()