Cannot run in Excel by Driver Connection

＂Cannot run in Excel connection 
Set cn = CreateObject("ADODB.Connection")

cn.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=C:\testing.xls; ReadOnly=False;" 

''It shows error message at this line 
''Sheet1' is sheet name, 'COLUMN1', 'COLUMN2' are column names 
Set rs = cn.Execute ("select * from [Sheet1$] where COLUMN1='2'") 

Do while not rs.eof 
msgbox rs.Fields("COLUMN2").Value 
Loop 


Set rs= nothing 
Set con= nothing