Problem executing SQL Queries.

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

---

You can do it a few ways.

You can open a rs passing the SQL.
You can use a command object as the source for a rs when you open it.
You can execute from the connection object without returning a rs.

So it depends on what you need - rs or not.
Also it depends, if you need a rs, if it needs to be updateable or scrollable.