dim wrkJet As Workspace
dim BlankDatabase As Database
Dim SelectBlankTableAs Recordset
Set BlankDatabase = wrkJet.OpenDatabase(”数据库的路径")
Set SelectBlankTable = StandardDatabase.OpenRecordset("select distinct 字段 from where 条件“
然后接可以按照SQL语句来用了
不知道这样是否可以帮助你啊