The OleDbCommand is currently busy Open,fetching

[ramyan]

hi
i am getting an error like The OleDbCommand is currently busy Open, Fetching.
code:

Dim book1(80) As Integer
        Dim mem1(120) As Integer
        Dim twod(80)() As Integer
        Dim i%, k%, l%, j%
        Dim Rdr1 As OleDb.OleDbDataReader
        Dim Rdr2 As OleDb.OleDbDataReader
        For i = 100 To 180 Step 1
         OleDbConnection1.Open()
            OleDbDataAdapter1.SelectCommand.CommandText = "SELECT memberid FROM histo WHERE id=" & i & " "
            Rdr1 = OleDbSelectCommand1.ExecuteReader()
            j = 0
            While Rdr1.Read
                mem1(j) = Rdr1.GetValue(0)
                j += 1
            End While
            Rdr1.Close()
            For k = 0 To UBound(mem1) Step 1
               OleDbDataAdapter1.SelectCommand.CommandText = "SELECT id FROM histo1 WHERE memberid=" & k & " "
                Rdr2 = OleDbDataAdapter1.SelectCommand.ExecuteReader
                l = 0
                While Rdr2.Read
                    mem1(l) = Rdr2.GetValue(0)
                    l += 1
                End While
                'Console.Write(mem1(k))
            Next k
            'Console.Write(book1(i))
        Next i

thanks
ramya

[kenobewan]

First step is to change your select command, try:

OleDbDataAdapter1.SelectCommand.CommandText = "SELECT memberid FROM histo WHERE id='" & i & "'"

Here is an article that may help:
Using Parameterized Query in ASP.NET

[ramyan]

but then my id is an integer.i tried its datatype mismatch

[avkdsiva]

Have you pasted the exact code from your editor?
your first reader is
Rdr1 = OleDbSelectCommand1.ExecuteReader()
and the second reader is
Rdr2 = OleDbDataAdapter1.SelectCommand.ExecuteReader

Instead of creating datareaders directly from the Adapter, why dont you create a command object and then get the DataReader from it. I mean to say that you try using the 1st method for both the DataReaders, Rdr1, and Rdr2.