如何用combobox连接数据库啊？？我期望实现的功能如下．．．．．．

Question

请问下大牛们，如何用ＣＯＭＢＯＢＯＸ连接数据库啊？
我期望实现的功能如下：＂年，月，日＂分别对应了三个ＣＯＭＢＯＢＯＸ控件，如我在三个控件中分别选择了＂２００５，９，２６＂则自动连接到数据库中符合条件的记录上，杂办啊？感谢啊

Answer 1

Dim Quey As QueryDef
Dim db As Database
Dim rs As Recordset
    
Set db = OpenDatabase("DB.mdb")
Set Quey = db.CreateQueryDef("")
With Quey
    .SQL = "SELECT * FROM 表名" & "WHERE 日期= '" & Combo1.Text & Combo2.Text & Combo3.Text & "'"
    Set rs = .OpenRecordset()
End With