Help! 怎样用VB建一个ACCESS的查询？

Question

怎样用VB建一个ACCESS的查询？
建表是这样建：
Dim MyDatabase As Database
Dim MyTable As TableDef
Dim MyField As Field
 Set MyDatabase = CreateDatabase("D:\data\aaa.mdb", dbLangGeneral) '建数据库
 Set MyTable = MyDatabase.CreateTableDef("table1")  '建表
 Set MyField = MyTable.CreateField("客户名称", dbText, 20)     '建立字段
 MyTable.Fields.Append MyField
 Set MyField = MyTable.CreateField("客户地址", dbText, 30)     '建立字段
 MyTable.Fields.Append MyField
 Set MyField = MyTable.CreateField("品名", dbText, 10)
 MyTable.Fields.Append MyField
 set MyField = MyTable.CreateField("规格", dbText, 10)
 MyTable.Fields.Append MyField现在我要用VB代码在ACCESS建一个基于表table1的查询.
比如建一个客户列表的查询，
包含表table1的客户名称和客户地址两项.
在此基础上怎样写代码？

Answer 1

Dim MyQuery As QueryDef
Set MyQuery = MyDatabase.CreateQueryDef("客户列表", "SELECT table1.客户名称 , table1.客户地址 From tabale1")