[VB6] connettermi a db access, come?

[Delas]

col tuo metodo non sono riuscito, allora ho provato così: in un modulo:

Sub Connetti()

    Dim miaConn As ADODB.Connection
    Dim mioSet As ADODB.Recordset
    Dim miaStringaConn As String
        
    percorsoDb = App.Path & "\sgp97.mdb"
    miaStringaConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
    miaStringaConn = miaStringaConn & "Data Source="
    miaStringaConn = miaStringaConn & percorsoDb
    miaStringaConn = miaStringaConn & ";Persist Security Info=False"
        
    Set miaConn = New ADODB.Connection
    Set mioSet = New ADODB.Recordset
        
    miaConn.ConnectionString = miaStringaConn

End Sub

nell'evento form_load:

Connetti
    
Set objRS = New ADODB.Recordset
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic

objRS.Open "SELECT * FROM famiglie ORDER BY famiglie.famiglia", _
miaConn, , , adCmdText

ma mi da quest'errore: "errore di run-time 3001. gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto."