public Sub BindGrid()
Dim MyCommand As SqlDataAdapter = New SqlDataAdapter ("Select *
" _
& "From Users", MyConnect)
Dim ds As DataSet = New DataSet()
MyCommand.Fill(ds)
MyDataGrid.DataSource=ds
MyDataGrid.DataBind()

Dim dr as datarow = ds.tables(0).Rows(0)
'at this point, dr contains the first row from the datatest
TextBox1.text = dr("ColumnName").ToString()

'And so forth


End Sub