Modulo SQL Autogenerado

[pempas]

Hola a todos, estoy trabajando en un proyecto e intento hacer lo siguiente, me gustaría hacer un código en un módulo que realizase consultas, actualizaciones y añadiese registros a una BD para evitar repetir el código una y otra vez. Pero el problema que tengo es que no tengo ni idea de como hacerlo, es decir, genero el código lo llamo desde un formulario, pero como leches me llevo los datos???

Les pongo el código para que lo vean:

Public Sub Extrae(Tabla As String, Campos As String, Ordenadas As Boolean, CampoOrden As String, Ascendente As Boolean, Condicion As String)
'Antes de nada abrimos la base de datos
Dim DB As AdoDB.Connection
Set DB = New AdoDB.Connection
DB.CursorLocation = adUseClient
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BasePath & ";User Id=admin;Password=;"
DB.Open

'Comezamos a generar la consulta
SQL = "Select " & Campos & " From " & Tabla

'Si hay alguna condición la insertamos
If Condicion <> "" Then
SQL = SQL & " Where " & Condicion
End If

'Si hay algún orden lo insertamos
If Ordenadas = True Then
SQL = SQL & " Order By " & CampoOrden
If Ascendente = True Then
SQL = SQL & " ASC"
Else
SQL = SQL & " DESC"
End If
End If

'Declaramos el Recordset
Dim RS As AdoDB.Recordset
Set RS = New AdoDB.Recordset
RS.Open SQL, DB, 3, 1
End Sub


Espero que tengan una idea de lo que quiero hacer, el problema es que consulta, perfectamente pero, una vez hecha la consulta, ¿como puedo consultar los datos que ha generado?

Saludos y gracias...