Question

vb问题，急！！！在线等！！

我用vb编程遇到如下问题，请高手解决。
在标准模块已经有如下代码：
Public adocn As Connection
Public Sub main()
Dim straccess As String
straccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db2.mdb;Persist Security Info=False"
If adocn Is Nothing Then
Set adocn = New Connection
adocn.Open straccess
End If
frmmain.Show 1
End Sub
在另外一个窗体中，我想用combox控件来连接数据库，第一个combox连接数据库某张表中的“季度”，第二个连接“月份”。现在想让实现的功能是：当我在第一个combox中选中某个季度如1季度时，第二个combox能只显示1、2、3月份，而不显示其他月份。（注意：我的数据库表其中的两个字段分别为：季度和月份）。
我能把第一个combox与数据库连接起来，代码如下：
Dim strsql As String
Dim adors As New Recordset

adors.ActiveConnection = adocn

strsql = "select distinct 季度 from 表1"
adors.Open strsql
Do While Not adors.EOF
Combo1.AddItem adors.Fields("季度")
adors.MoveNext
Loop
adors.Close

接下来要设置combox2与数据库的连接了，该怎么做？
另外我还有一个问题，就是我能不能通过combox控件和msflexgrid控件，当我在几个combox中选定条件之后，在msflexgrid显示相应的数据？

Answer 1

直接写个if语句不就完了么?

再或者在数据库中吧月份查出来

添加到combox2中

这个需要写if语句