具体的代码是这样的：
Dim id As String = Request("userid")
Dim str As String = "Provider=MSDAORA.1;data source=kksb;user id=kksb;password=kksb2007;"
Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(str)
Dim dr As System.Data.OleDb.OleDbDataReader
conn.Open()
Dim strSQL As String = "SELECT * FROM T_USER WHERE userid=" & id
Dim comm As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(strSQL,conn)
dr = comm.ExecuteReader()
之后怎样才能提取到各个字段的内容？

IF dr.read() THEN
............
END IF


也可以用DataSet.

如果我查询到的记录里面有userid,username,pwd字段
想把字段里面的内容分别赋给：uderid.Text,username.Text,pwd.Text
那我该怎样写这里的赋值语句？
if dr.read() Then
userid.Text = ???
username.Text = ???
pws.Text = ???
请指教！！！

userid.Text = dr("userid")
username.Text = dr("username")
pws.Text = dr("pwd")


给一个Enterprise中data access的例子:

Dim db As Database = DatabaseFactory.CreateDatabase("DataAccess1")

Dim sqlCommand As String = "GetProductsByCategory"
Dim dbCommand As DbCommand = db.GetStoredProcCommand(sqlCommand)

db.AddInParameter(dbCommand, "CategoryID", DbType.Int32, 2)

Dim readerData As StringBuilder = New StringBuilder

Using dataReader As IDataReader = db.ExecuteReader(dbCommand)

While (dataReader.Read())
readerData.Append(dataReader("ProductName"))
readerData.Append(dataReader("ProductPrice"))
readerData.Append(Environment.NewLine)
End While
End Using
Return readerData.ToString()

多谢！
我试试看