I want to know how to execute SQL queries again and again using only one recordset. When I use following code, an error is displayed saying: "Error: The rowset is not bookmarkable" at line 1 of procedure "addgrid1".

How to effectively execute SQL queries?

Code:
Private Sub SearchAll()
 Dim rsGrid1 As ADODB.Recordset
 Dim SearchAllQuery as String
 Set rsGrid1 = New ADODB.Recordset

 If rsGrid1.State = adStateClosed Then
        rsGrid1.Open "Select Amount,Particular,OnDate,ModeType,Code,BankName,ChqNo,TranID from Transac where CustID = " & GlobalID, Conn, adOpenStatic, adLockReadOnly
 End If

SearchAllQuery = "Select Amount,Particular,OnDate,ModeType,Code,BankName,ChqNo,TranID from transac  where custid=" & GlobalID

Set rsGrid1 = conn.Execute(SearchAllQuery)
call addgrid1
End Sub

Private Sub addgrid1()
    Set DataGrid1.DataSource = rsGrid1.DataSource
    Call AdjustLeftSideGrid
End Sub