module1.bas

《VB6数据库开发指南》所有的例程的源码

Attribute VB_Name = "Module1"
Public Function DataPath()
    DataPath = "E:\VB Database How-To"
End Function

Public Function ExcelPath()
    ExcelPath = "D:\Program Files\Microsoft Office\Office\Excel.exe"
End Function