Dim myRow As DataRow
Dim myColumn As DataColumn
Dim l_ds As DataSet
Dim l_da As OracleDataAdapter
l_ds = New DataSet
l_da.Fill(l_ds, "USERINFO")
For Each myRow In l_ds.Tables("USERINFO").Rows
For Each myColumn In l_ds.Tables("USERINFO").Columns
Label1.Text = Label1.Text & CStr(myRow(myColumn)) & "<br>"
TextBox3.Text = TextBox3.Text & CStr(myRow(myColumn)) & "<br>"
Next
Next