Here is the way to connect
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb;Persist Security Info=False"
Cn.ConnectionTimeout = 40
Cn.Open
Set RS = New ADODB.Recordset
sQuery = "Select * From Table"
RS.ActiveConnection = Cn
RS.Source = sQuery
RS.Open
' --------------------------------------------
' Write your code to copy the values to Excel
For more info on connection, refer
http://www.connectionstrings.com/?carrier=access2007
Cheers,
Shasur
http://www.vbadud.blogspot.com