prova così:
codice:
Sub ConnDB() 

Set DB = New ADODB.Connection 
Set RS = New ADODB.Recordset 

FileNum = FreeFile 

DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                      "Data Source=" & Path
DB.Properties("Password") = "CARLO"
DB.Open

End Sub








PS:
usa i tag [*code][*/code] senza * x scrivere il codice, è più leggibile.
cmq, questo argomento è già stato affrontato... quindi ti consiglio di fare una ricerca prima di aprire una discussione nuova... tanto per non appesantire il database con problemi che già sono stati risolti in precedenza.
ciao ciao...