在链接ACCESS数据库之前,先引用DAO对象:选择“工程”菜单的“引用”命令,然后“引用”对话框中添加“Microsoft DAO 3.6 Object Library”
dim db as database
dim rs as recordset
private sub form_load()
set db=opendatabase(app.path+"\民族表.mdb")
set rs=db.openrecordset("民族")
do while not rs.eof
combo1.additem rs("民族")
rs.movenext
loop
end sub