Visual Basic

dtStudList = generalQuery(int)

        dt.Columns.Add(New DataColumn("Student Name", GetType(String)))
        'dt.Columns.Add(New DataColumn("Parent Name", GetType(String)))
        'dt.Columns.Add(New DataColumn("Phone", GetType(String)))
        'dt.Columns.Add(New DataColumn("Cell", GetType(String)))
        'dt.Columns.Add(New DataColumn("Instrument", GetType(String)))

        For Each row As DataRow In dtStudList.Rows
            dr = dt.NewRow()
            dr(0) = row("stud_name")
            dr(1) = row("stud_par_name")
            dr(2) = row("stud_id")
            dr(3) = row("stud_phone")
            dr(4) = row("stud_cell")

            ' get student instruments
            intStudList = Convert.ToInt32(row("stud_id"))
            tableName = "tbl_lessons"
            dtStudInst = generalQuery()

            ' create counter
            Dim intCount As Integer = 1

            For Each row2 As DataRow In dtStudInst.Rows
                If intCount = 1 Then
                    strInst = Convert.ToString(row2("less_instrument"))
                Else
                    strInst += ", " & Convert.ToString(row2("less_instrument"))
                End If
            Next

            'dr(5) = strInst
            dt.Rows.Add(dr)
            intCount += 1
        Next

        Dim dgView As New DataView(dt)
        dgrStudList.DataSource = dgView

Try<br />
<br />
Me.conTest.ConnectionString = _<br />
"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= MyTest.mdb"<br />
Catch eConnection As System.Exception<br />
MessageBox.Show(eConnection.Message)<br />
End Try<br />
<br />
'if array size is smaller then increase as per entry<br />
ArraySize = Count<br />
Dim IntegerArray(ArraySize) As Integer<br />
'sort integers<br />
Call SortArray(ArraySize, IntegerArray)<br />
Try<br />
odaTest.Fill(dsTest)<br />
'lblNo.Text = Me.BindingContext(dsTest.MyTest).Position<br />
Catch eLoad As System.Exception<br />
MessageBox.Show(eLoad.Message)<br />
End Try<br />
Call dsContacts_PositionChanged()<br />
End If<br />
<br />
this is for array <br />
<br />
Private Sub SortArray(ByVal N As Integer, ByVal SortedArray() As Integer)<br />
'increase the array size according to number of entry <br />
For I As Integer = 0 To N<br />
SortedArray(I) = I<br />
Next I<br />
End Sub

Try<br />
<br />
                Me.conTest.ConnectionString = _<br />
                  "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= MyTest.mdb"<br />
            Catch eConnection As System.Exception<br />
                MessageBox.Show(eConnection.Message)<br />
            End Try<br />
            Me.conTest.Open()<br />
            Dim MyData As New OleDb.OleDbCommand("SELECT *FROM MyTest ORDER BY ID ", conTest)<br />
            Dim DR As Data.OleDb.OleDbDataReader = MyData.ExecuteReader<br />
            Do While DR.Read = True<br />
                ArraySize += 1<br />
            Loop<br />
            DR.Close()<br />
<br />
            'if array size is smaller then increase as per entry<br />
            Dim IntegerArray(ArraySize) As Integer<br />
            'sort integers<br />
            Call SortArray(ArraySize, IntegerArray)<br />
            ReDim Asked(ArraySize)<br />
            Call dsContacts_PositionChanged()<br />
<br />
Private Sub NavNext()<br />
        If AskedQ >= ArraySize Then<br />
            MessageBox.Show("Finish want to play again..?", "Finish", MessageBoxButtons.OK)<br />
            For I As Integer = 0 To ArraySize<br />
                Asked(I) = False<br />
                AskedQ = 0<br />
            Next<br />
            Exit Sub<br />
        Else<br />
            Try<br />
                Do<br />
                    odaTest.Fill(dsTest)<br />
                    R = CInt(Rnd() * ArraySize)<br />
                    '[Go to the next entry]<br />
                    Me.BindingContext(dsTest, "MyTest").Position = R<br />
                Loop Until Asked(R) = False<br />
                AskedQ += 1<br />
                Asked(R) = True<br />
            Catch eLoad As System.Exception<br />
                MessageBox.Show(eLoad.Message)<br />
            End Try<br />
            '[See custom procedures]<br />
            Me.dsContacts_PositionChanged()<br />
        End If<br />
    End Sub