excel 2000 ,用ADO打开。private Const Provider = "Microsoft.Jet.OLEDB.4.0"
private Const ExtendedProperties = "Excel 8.0"    DBCn_xls.Provider = Provider
    DBCn_xls.Properties("Extended Properties") = ExtendedProperties
    DBCn_xls.Properties("Data Source") = sSaveAsFile
    DBCn_xls.Open
    
    Set DBRs_xls = DBCn_xls.Execute("Select count(*) from `" & lstSheet.Text & "$` ")我想接下来你知道应该怎么写吧.