' accdb
' mdb If InStr(LCase(FileListBox1.Items(I)), ".accdb") = 0 Then Cnn1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dir2.Path & "\" & FileListBox1.Items(I) & ";Jet OLEDB:Database Password=''") Else Cnn1.Open("Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & Dir2.Path & "\" & FileListBox1.Items(I) & ";") End If |