Advertisement
Advertisement
| 07.24.2008 at 09:30AM PDT, ID: 23592739 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: |
Dim path as String
intFile = FreeFile
Open "G:\Support\Applications\FixIT\databasepath.txt" For Input As intFile
path = Input(LOF(intFile), intFile)
Set Connection1 = New ADODB.Connection
Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & path & ";Jet OLEDB:Database Password=*******;"
Connection1.Open
|