Solved: Please help me compile this code

[flowergirl]

This code is supposed to import from Access to Excel:

[vba]Sub AccessToExcel()
Dim dbConnection As ADODB.Connection
Dim dbRecordset As ADODB.Recordset
Dim dbFileName As String
Dim strSQL As String
Dim DestinationSheet As Worksheet
Set dbConnection = New ADODB.Connection
Set dbRecordset = New ADODB.Recordset
Set DestinationSheet = Worksheets("Sheet2")
dbFileName = "C:\Documents and Settings\ADRY_7258\My Documents\Test_Access_db.accdb"
dbConnection.Provider = "Microsoft.ACE.OLEDB.12.0;Data Source=" & dbFileName _
& ";Persist Security Info=False;"

strSQL = "SELECT Test_Access_db.* from Test_Access_db;"

DestinationSheet.Cells.Clear

With dbConnection
.Open
.Cursorlocation = adUseClinet
End With

With dbRecordset
.Open strSQL, dbConnection
Set ActiveConnection = Nothing
DestinationSheet.Range("A2").CopyFromRecordset dbRecordset
DestinationSheet.Range("A1:C1").Value = Array("Employee ID", "Employee Name", "Employee Salary")

dbRecordset.Close
dbConnection.Close

Set dbRecordset = Nothing
Set dbConnection = Nothing
Set DestinationSheet = Nothing
End Sub[/vba]

[flowergirl]

The matter has been resolved.

Thanks.

[Aussiebear]

So, was the issue, how to compile or an error resulting from a compile attempt?

[Bob Phillips]

Maybe something to do with this Ted

[Aussiebear]

So it seems. I was misled by the thread title.