DataROW

Dim cn As New OleDbConnection(...)
Dim sql As String = "SELECT * FROM tabella"
Dim objDataAdapter As New OleDbDataAdapter(sql, cn)
Dim objDataSet As New DataSet()
objDataAdapter.Fill(objDataSet)

Dim objTable As DataTable = objDataSet.Tables(0)
Dim objRow As DataRow = objTable.Rows(1)

Response.Write("Campo1: " & objRow("NomeCampo"))
Response.Write("Campo2: " & objRow("NomeCampo"))