Set Cnn1 = New Connection If MyPassword.Text <> "" Then Stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dir2.Path & "\" & ListNomFiles.List(ListNomFiles.ListIndex) & ";Jet OLEDB:Database Password=" & MyPassword.Text Else Stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dir2.Path & "\" & ListNomFiles.List(ListNomFiles.ListIndex) & ";Persist Security Info=False" End If Cnn1.Open Stringa |