Private Sub Command_click1
Dim dbtmp As DAO.Database
Dim tblObj As DAO.TableDef
Dim rs As DAO.Recordset

Set dbtmp = OpenDatabase (app.path & "\test.xls", False, True, "Excel 8.0;")
DoEvents

Set rs = dbtmp.OpenRecordset("select * from `myRange2`")

While Not rs.EOF
For x = 0 To rs.Fields.Count - 1
Debug.Print rs.Fields(x).Value
Next rs.
MoveNext
Wend
End Sub