Utilizzo file .mdb e percorso nella Connection String

[Domenic]

Ciao.

Ho un problema.
Ho necessita di memorizzare dei codici in una basedati access.
Ho creato la basedati e il codice per l'inserimento ma quando vado ad eseguire il programma
mi esce un messaggio d'errore che mi dice che non trova la basedati.
Lo strano è che a volte lo fa e a volte no.

CODICE:

Private Sub App_NewMailEx(ByVal EntryIDCollection As String)
On Local Error GoTo err1

Dim strConn As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=access.mdb;"
cn.Open strConn
rs.Open "SELECT * FROM Mail", cn, 3, 3
'Inserisco i codici delle mail che arrivano in una base di dati.
rs.AddNew
rs("mailcod") = EntryIDCollection
rs.Update
'Chiudo la connessione e il recordset caricato precedentemente
rs.Close
cn.Close
Exit Sub
err1:
MsgBox Err.Description
End Sub

VVoVe: VVoVe: VVoVe: