01.
02.
Dim
dtAdapter
As
OleDbDataAdapter
03.
Dim
dt
As
New
DataTable
04.
strSQL =
"SELECT * FROM customer WHERE CustomerID = '"
& Request.QueryString(
"CustomerID"
) &
"' "
05.
dtAdapter =
New
OleDbDataAdapter(strSQL, objConn)
06.
dtAdapter.Fill(dt)
07.
08.
If
dt.Rows.Count > 0
Then
09.
Me
.txtCustomerID.Text = dt.Rows(0)(
"CustomerID"
)
10.
Me
.txtName.Text = dt.Rows(0)(
"Name"
)
11.
Me
.txtEmail.Text = dt.Rows(0)(
"Email"
)
12.
Me
.txtCountryCode.Text = dt.Rows(0)(
"CountryCode"
)
13.
Me
.txtBudget.Text = dt.Rows(0)(
"Budget"
)
14.
Me
.txtUsed.Text = dt.Rows(0)(
"Used"
)
15.
End
IF