læse hver record i et dataset.

jeg har følgende kode:
Private Sub GenererInstuksNr(ByVal underomraadeDS As DataSet) ' Sub der genererer det nye instuksnr. Tager det højeste instruks_nr og ligger én til
        Dim lig As String
        Dim MinConnString As String = "c:\db1.mdb"
        Dim Minconn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & MinConnString)
        lig = (underomraadeDS.Tables(0).Rows(0).Item("Hovedgruppe")).ToString & "." & (underomraadeDS.Tables(0).Rows(0).Item("Omraade_nr")).ToString & "." & (underomraadeDS.Tables(0).Rows(0).Item("Underomraadenr")).ToString & "."
        Dim selectCMD As OleDbCommand = New OleDbCommand(" SELECT  Instruks_nr FROM Instruks_tabel WHERE Instruks_nr like '" & lig & "%%' ", Minconn)
        'MsgBox("SELECT Instruks_nr FROM Instruks_tabel WHERE Instruks_nr like '" & lig & "%'")
        Dim underomraade2DS As New DataSet()
        Dim myAdap As OleDbDataAdapter = New OleDbDataAdapter()
        Dim a, i As Integer
        MsgBox(underomraadeDS.Tables(0).Rows(0).Item("Hovedgruppe").ToString)
        selectCMD.CommandTimeout = 30
        myAdap.SelectCommand = selectCMD
        myAdap.Fill(underomraade2DS)
        Dim Temp, Myarray() As String

        DataGrid1.DataSource = underomraade2DS
        Dim pRow As DataRow

        For Each pRow In underomraade2DS.Tables("Instruks_nr").Rows
          'her skal jeg arbejde med hver record
        Next

    End Sub

Dim column As DataColumn
    Dim row As DataRow
    Dim count As Integer = 0
   
    For Each row In underomraade2DS.Tables(0).Rows

        count += 1
           
            For Each column In underomraade2DS.Tables(0).Columns
               
                If row(column).ToString = "????" Then
                   
                    MsgBox("Found ???? at: Row " & count.ToString & " : " & column.ColumnName)

                End If

            Next
    Next