[VB 6.0] Problema di connessione al db di Access

[Nosf1]

Ciao a tutti. Sto tentanto di fare una specie di lista clienti in VB, collegandola ad un database fatto in access.
Nella form load del progetto ho messo:

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

' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE I DATI
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=Data.mdb"
rs.Open "SELECT idcliente, nome, cognome FROM Clienti ORDER BY cognome ASC", cn, 1

' INSERISCO UN ITEM VUOTO NELLA COMBO BOX
cmbseleziona.AddItem ("")

' ESTRAGGO I DATI CHE MI INTERESSANO DALLA TABELLA E LI INSERISCO NEL COMBO BOX
While rs.EOF = False
cmbseleziona.AddItem (rs("idcliente").Value & " - " & rs("cognome").Value & " " & rs("nome").Value)
rs.MoveNext
Wend

rs.Close
cn.Close
End Sub

Ma nel lancio dell'applicazione mi da il seguente errore:
-Errore di run time '-2147467259
[MICROSOFT] [Driver ODBC Microsoft Access] impossibile trovare il file (sconosciuto)

Avete consigli da darmi?
Premetto che nel debug mi da errore la linea in grassetto

GRAZIE MILLE!

[Dardino]

hai provato a mettere il percorso completo del file mdb?

[Nosf1]

si e mi dice:
assicurarsi di essere collegati al server in cui si trova il file...
Aiuto!

[Nosf1]

Ok ho risolto! Ho dovuto mettere tutto il persorso...
C:\documents and setting\user...
Ma non cè un modo piu sbrigativo?

[Alethesnake]

puoi partire dalla cartella dove si trova il tuo programma con app.path