First off. you will need to add a reference to the Microsoft ActiveX Data Objects library.

To create recordsets from the current DB you would use the following syntax

VB Code:
  1. Dim rsMyRecordSet As ADODB.Recordset
  2. Dim sSQL As String
  3.  
  4.     Set rsMyRecordSet = New ADODB.Recordset
  5.     sSQL = "SELECT field FROM table....etc"
  6.     rsMyRecordSet.Open sSQL, CurrentProject.Connection

the "CurrentProject.Connection" in the above connects to the db in which your code resides.