关于excel与vb问题

Question

Private Sub Command3_Click()
'On Error GoTo 111
Dim i As Long
Dim SQLSTR As String
Dim mysheet As Worksheet
Set Cnn = New ADODB.Connection
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=costf-gb04年新料价.xls;Extended Properties='Excel 8.0;HDR=Yes'"    Cnn.Open
    SQLSTR = "select * from [sheet1$]"
    Set Rss = New ADODB.Recordset     With Rss
          .ActiveConnection = Cnn
          .CursorLocation = adUseClient
          .CursorType = adOpenKeyset
          .LockType = adLockBatchOptimistic
          .Open SQLSTR
     End With
     
'Exit Sub
'111:
'MsgBox Err.Description
End Sub运行时提示错误：“MICROSOFT JET数据库引擎找不到'sheet1$',请确认对象是否存在，并正确的写出它的名称和路径” (EXCEL文件中存在sheet1这个表),请问各位错在那里?应怎么修改?

Answer 1

Private Sub Command3_Click()
'On Error GoTo 111
Dim i As Long
Dim SQLSTR As String
Dim mysheet As Worksheet
Set Cnn = New ADODB.Connection
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=costf-gb04年新料价.xls;Extended Properties='Excel 8.0;HDR=Yes'"    Cnn.Open
    SQLSTR = "select * from [sheet1$]"
    Set Rss = New ADODB.Recordset     With Rss
          .ActiveConnection = Cnn
          .CursorLocation = adUseClient
          .CursorType = adOpenKeyset
          .LockType = adLockBatchOptimistic
          .Open SQLSTR
     End With
     
'Exit Sub
'111:
'MsgBox Err.Description
End Sub运行时提示错误：“MICROSOFT JET数据库引擎找不到'sheet1$',请确认对象是否存在，并正确的写出它的名称和路径” (EXCEL文件中存在sheet1这个表),请问各位错在那里?应怎么修改?