Funcion para obtener el recordset de una consulta sql o access

[Avellaneda]

Buenas!!!!

Mira, pon esta función en un módulo .bas

Código:

Public Function ConRS(ByVal cn As ADODB.Connection, Sql As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
With rs
    .ActiveConnection = cn
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .Open Sql
End With
Set ConRS = rs
End Function

y la llamas así, una vez abierta la conexion (Access o Sql Server) p.e. para mostrar los datos en un control DataGrid:

Set DataGrid1.DataSource = ConRS(conex, "Select * From Tabla1")

Un saludo!