Set recordset to SQL string 1

[Kib]

How do I set a recordset equal to a SELECT SQL string such as
SELECT * FROM example WHERE ID=3
Thanks

 

[JoeMiller]

This example was taken right out of online help included with Access when searching on recordset in a code window:

[tt]
Dim dbs As Database, rst As Recordset
Dim strSQL As String

' Return reference to current database.
Set dbs = CurrentDb
strSQL = "SELECT * FROM Orders WHERE [ShipCountry] = 'UK'"
Set rst = dbs.OpenRecordset(strSQL)
rst.MoveLast
Debug.Print rst.RecordCount
rst.Close
Set dbs = Nothing
[/tt]
HTH
Joe Miller
joe.miller@flotech.net