การดึงข้อมูลจาก DB มาแสดงที่ label.text การดึงข้อมูลจาก DB มาแสดงที่ label.text ยังไงเหรอครับ

 d_row = ds.Tables("Login").Select

 With Form_Index
                    .tssl_Username.Text = CStr(d_row(0)("Username"))
                    .tssl_Firstname.Text = CStr(d_row(0)("Firstname"))
                    .tssl_Lastname.Text = CStr(d_row(0)("Lastname"))
                End With

'*** 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