Const strConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & _
strDatabaseLocation & ";Jet OLEDB:Database Password=" & Password
Dim Connection As ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Set Connection = New ADODB.Connection
Set RecordSet = New ADODB.RecordSet
Connection.Open strConnectionString
RecordSet.Open strSql, Connection, adOpenStatic, adLockOptimistic
rngTargetSheet.Activate
rngTargetSheet.Name = strSheetName
rngTargetRange.CopyFromRecordset RecordSet
Set Connection = Nothing
Set RecordSet = Nothing
Error-Message.bmp
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.