Visual Basic - Como abrir el recordset

Estoy conectando una bd de access en VB6 usando este codigo:
Public Cn As New ADODB.connection
Public Rs As New ADODB.Recordset
Public sql As String

Public Sub connection()
Set Rs = New ADODB.Recordset
sql = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;Persist Security Info=False; DATA SOURCE=" & App.Path & "\prueba.mdb"
If Cn.State = adStateClose Then
Cn.Open sql
End If
End Sub

pero mi problema es que no se como abrir el recordset el openrecordset no funciona lo intento de esta manera: Set Rs = Rs.Open(sql, Cn) y tampoco funciona

prueba con con algo asi:

RS.Open "select * from clientes", cn

Este ademas de cn.... hay más parámetros puedes seleccionarlos de seguro te aparecerán al poner la coma.
hasta luego!

¿Porque no intentas de esta manera?

'Declarando variables
Private cnDB as Connection
Private rsStatus as Recordset

'Abriendo Base de Datos
Set cnDB = New Connection
With cnDB
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "D:\Archivo.mdb"
cnDB.Open
End With

'Abriendo objeto Recorset

Set rsStatus = New Recordset

With rsStatus
.Source = "SELECT * FROM status WHERE idcia = " & frmPrueba.Emp & " "
.ActiveConnection = cnDB
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockReadOnly
End With

Saludos,
Miguel !