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...
![]()