Ho scritto due righe di codice per fare una connessiona ad un db Access ma all'evento command1_click() mi da questo errore:

Errore di run-time
'-2147024769(8007007f)':
Errore di automazione
Impossibile trovare la procedura specificata

Premetto che nell'IDE va tutto bene e riesco a leggere i dati del db, appena faccio il pacchetto, installo e eseguo la mini applicazione spunta l'errore!

Ho usato la creazione guidata dei pacchetti di installazione di VB6.

Questo è il codice (nei riferimenti del progetto ho messo MS ActiveX Data Objects Recordset Library 2.8 e MS ActiveX Data Objects Library 2.7):

Option Explicit

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim s() As String

Private Sub Command1_Click()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Rubrica.mdb"
rs.Open "SELECT id, nome , cognome FROM Rubrica ORDER BY cognome ASC", cn, 1
cmbSeleziona.AddItem ""

While rs.EOF = False
cmbSeleziona.AddItem (rs("id").Value & " - " & rs("nome").Value)
rs.MoveNext
Wend

rs.Close
cn.Close

End Sub

Grazie per l'aiuto