Sub Open_ExcelSpread()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & CurrentProject.Path & _
"\Report.xls;" & _
"Extended Properties=Excel 8.0;"
conn.Close
Set conn = Nothing
End Sub