再问多帐套多年度的设置问题？

Question

我的意思是这样的，我想做一个多年度的东东。想通过改变下拉框的年度，链接不同年度的数据，在我的初始值为2006年后，我想如果我选择2007，这时我的下面的关联的用户名框却没有变化。
数据库在的位置是：
\\dovro\2006
\\dovro\2007
\\dovro\2008
Private Sub Form_Load()
    Combo1.AddItem "2006"
    Combo1.AddItem "2007"
    Combo1.AddItem "2008"
    Combo1.ListIndex = 0    Combo2.Font.Size = 11
End Sub
有一链接的这个是写在PUBLIC的过程connection，
dovrosour是服务器变量
dovroyear是年度变量，Sub mydovro()
Set CNN = CreateObject("ADODB.Connection")
Set RST = CreateObject("ADODB.Recordset")
'CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & "d:\dovro\dovroyear\sales.mdb" CNN.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & "\\" & dovrosource & "\dovro" & "\" & dovroyear & "\sales.mdb"
'CNN.ConnectionTimeout = 15
End Sub在登录窗口
call mydovro
SQL = "select name from duser"
     RST.Open SQL, CNN, adOpenKeyset
     Do While Not RST.EOF
       Me.ComboBox2.Font.Size = 11
       ComboBox2.AddItem RST.Fields(0).Value
       RST.MoveNext
    Loop
也就是如何才能链接上2007的数据库？

Answer 1

sub combobox2_click()
dovroyear=combobox2.text
call mydovro
end sub

Answer 2

按发上的过程：
sub combobox2_click()
dovroyear=combobox2.text
call mydovro
end sub点击2007后，没有反应。
登录窗口如下：  服务器：dovrosour
    年度：dovroyear（combobox1:2006，2007，2008）
  用户名：textbox1
    密码：textbox2

Answer 3

对的，用户名是会列表的，我不是在
SQL = "select name from duser"
     RST.Open SQL, CNN, adOpenKeyset
     Do While Not RST.EOF
       Me.ComboBox2.Font.Size = 11
       ComboBox2.AddItem RST.Fields(0).Value
       RST.MoveNext
    Loop
有一个列表的过程吗？当年度框发生变化，用户名列表应当有一个变化。

Answer 4

哦，sub combobox2_click()
dovroyear=combobox2.text
call mydovro
SQL = "select name from duser"
     RST.Open SQL, CNN, adOpenKeyset
     Do While Not RST.EOF
       Me.ComboBox2.Font.Size = 11
       ComboBox2.AddItem RST.Fields(0).Value
       RST.MoveNext
    Loopend sub