ถามเรื่อง VB.net ดึงข้อมูลจาก Mysql แล้วไปแสดงข้อมูลบน TextBox (Windows Froms Application) ครับ

'*** DataTable ***'
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable
strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "
dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

If dt.Rows.Count > 0 Then
	Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")
	Me.txtName.Text = dt.Rows(0)("Name")
	Me.txtEmail.Text = dt.Rows(0)("Email")
	Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")
	Me.txtBudget.Text = dt.Rows(0)("Budget")
	Me.txtUsed.Text = dt.Rows(0)("Used")
End IF

        Dim da As MySqlDataAdapter
        Dim ds As DataSet
        Dim dt As DataTable
        Dim sql As String
        Dim cmd As MySqlCommand
        Dim cb As MySqlCommandBuilder

        sql = "select *from member where membercode = '" & txtID.Text & "'"
        cmd = New MySqlCommand(sql, FormMain.Conn)
        cmd.CommandType = CommandType.Text
        da = New MySqlDataAdapter(cmd)
        cb = New MySqlCommandBuilder(da)
        ds = New DataSet
        da = New MySqlDataAdapter()
        da.Fill(dt) ' <<<<< มันติด error ตรงนี้น่ะครับ <<<<<<<

if dt.Rows.Count > 0 Then
        Me.txtMemercode.Text = dt.Rows(0)("Memercode")
        Me.txtMemberType.Text = dt.Rows(0)("MemberType")
        Me.txtFirstname.Text = dt.Rows(0)("Firstname")
        Me.txtLastName.Text = dt.Rows(0)("LastName")
        Me.txtAge.Text = dt.Rows(0)("Age")
        Me.txtExpireDate.Text = dt.Rows(0)("ExpireDate")
End IF