ThrottleWorks
Excel Ninja
Hi,
I am trying to import data from MS Access to MS Excel.
I am using code from https://www.mrexcel.com/forum/excel-questions/498330-excel-vba-get-data-access-database.html to suite my requirement.
However I am facing bug as Unrecognized database format at 'Con1.Open' line.
Can anyone please help me understanding this issue.
Please note, I use Access 2010.
I am trying to import data from MS Access to MS Excel.
I am using code from https://www.mrexcel.com/forum/excel-questions/498330-excel-vba-get-data-access-database.html to suite my requirement.
However I am facing bug as Unrecognized database format at 'Con1.Open' line.
Can anyone please help me understanding this issue.
Please note, I use Access 2010.
Code:
Sub GetData()
Dim Con1 As ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Const ConnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\A\B\C\My Documents\Database4.accdb;Persist Security Info=False"
Const SQL As String = "SELECT * FROM FromExceltoAccess"
Set Con1 = New ADODB.Connection
Con1.ConnectionString = ConnString
'Facing bug at below line
Con1.Open
Set RecordSet = New ADODB.RecordSet
Call RecordSet.Open(SQL, Con1)
Con1.Close
End Sub