MDB记录值获取的问题

Question

Public Sub MdbToxls(sAccessFileName As String, sExcelPath As String, sSheetName As String, sAccessTable As String)
      Dim db As DAO.Database
    Set db = Workspaces(0).OpenDatabase(sAccessFileName)
    db.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelPath & "].[" & sSheetName & "] FROM [" & sAccessTable & "]"
    db.Close
    Set db = Nothing
End Sub
我想再dim一个int,把select count(*() from table 的值赋给它，应该怎么加在这个代码中，请给我写好的代码，而不只是提示，谢谢

Answer 1

Public Function MdbToxls(sAccessFileName As String, sExcelPath As String, sSheetName As String, sAccessTable As String) As Integer
  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Set db = Workspaces(0).OpenDatabase(sAccessFileName)
  db.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelPath & "].[" & sSheetName & "] FROM [" & sAccessTable & "]"
  rs.OpenRecordset "Select Count(ID) AS IDCount FROM [" & sAccessTable & "]"
  MdbToxls = rs.Fields("IDCount").Value
  rs.Close
  Set rs = Nothing
  db.Close
  Set db = Nothing
End Function

Answer 2

Public Function MdbToxls(sAccessFileName As String, sExcelPath As String, sSheetName As String, sAccessTable As String) As Integer
  Dim db As DAO.Database
  Dim rs As DAO.Recordset  Set db = Workspaces(0).OpenDatabase(sAccessFileName)
  db.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & sExcelPath & "].[" & sSheetName & "] FROM [" & sAccessTable & "]"
  rs.OpenRecordset "Select Count(ID) AS IDCount FROM [" & sAccessTable & "]"
  MdbToxls = rs.Fields("IDCount").Value
  rs.Close
  Set rs = Nothing  db.Close
  Set db = Nothing
End Function

Answer 3

调用的时候
dim a as Integer
a=MdbToxls(.......)

Answer 4

"对象变量或with块变量未设置" 
怎么解决?