取Excel文件,这段代码为什么access2010出错了?

dragonszr

大家看看下面的代码,是哪里出错?
下面这段代码在access2003可以用,但是在access2010中不能用了
执行的时候停止,点调试,指向红色的地方
Private Sub 文件_KeyDown(KeyCode As Integer, Shift As Integer)
1001 If KeyCode = 13 Then
1002    Set newx = New ADOX.Catalog
1003    If Dir(Me![文件]) = "" Then
1004        MsgBox "指定文件找不到，无法操作"
1005        Exit Sub
1006    End If
1007    cstring = "Driver=Microsoft Excel Driver (*.xls);dbq=" & Me![文件]
1008    newx.ActiveConnection = cstring   '取得Excel文件
1009    For i = 0 To newx.Tables.Count - 1   '取得工作表名称
1010            v = v & ";" & Left(newx.Tables(i).Name, Len(newx.Tables(i).Name) - 1)
1011    Next
1012    v = Right(v, Len(v) - 1)
1013    Me![sheet].RowSource = v
1014    Me![sheet].Requery
1015   ' MsgBox "请在工作表名称选取来源数据所在之工作表"
1016 End I