可不可以幫我抓蟲總是有error(編號：5240)

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=E:\Dct\version_1.xls;" & _
　　　　　"Extended Properties=""Excel 8.0;HDR=Yes;"";"
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "select*from[A1:IV127]"
Set rs = New ADODB.Recordset
rs.Open cmd, , adOpenKeyset, adLockOptimistic
Debug.Print rs.RecordCount
Set cmd = Nothing
Set rs = Nothing
conn.Close
Set conn = Nothing