Run an Acess.saved query from Excel

[ArtVandolay]

In my Workbook Open event, I'm trying to run a saved Access query and put the results in my worksheet named "Names":

Private Sub Workbook_Open()
Dim oSheet As Object
'Create the QueryTable
Dim aSMMdb As String
aSMMdb = "ASMMV4AVa. mdb"
Dim oQryTable As Object
Set oQryTable = Sheets("Name"). QueryTables.Add ( _
"OLEDB;Provider =Microsoft.Jet. OLEDB.4.0;Data Source=" & _
aSMMdb & ";", Sheets("Name"). Range("A1"), "Select * from Excel")
oQryTable.Refre shStyle = xlInsertEntireR ows

End Sub

Wnhen it runs, I get a subscript out of range message. Can someone help me?