新手提个菜菜的问题，大家帮帮忙，关于数据库中字段值写入combobox的

Question

数据库JP_sTrainSite中TSiteName字段的值要写入combo1中
我的代码是
Private Sub Combo1_Click()
    Dim ConnTemp As New ADODB.Connection
    Dim RsTemp As New ADODB.Recordset
    Dim StrTemp As String
    
    'Set ConnTemp = New ADODB.Connection
    ConnTemp.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=JiapeiSys;Data Source=SOFTSERVER"
    ConnTemp.Open
    
    StrTemp = "select TSiteName from JP_sTrainSite"
    
    Set RsTemp = New ADODB.Recordset
    With RsTemp
         .CursorType = 3
         .LockType = 3
         .Open StrTemp, ConnTemp
    End With
    
    Combo1.Clear
    Do Until RsTemp.EOF
        StrTemp = RsTemp.Fields("TSiteName")
        Combo1.AddItem StrTemp
        RsTemp.MoveNext
    Loop
End Sub运行以后点击combo1的按钮不激发这个事件，是什么原因呢？

Answer 1

你事件选的不对,CLICK事件是当你选择COMBO里的项目时才发生的,你还没有数据呢,你点击什么啊!!

Answer 2

哦，看错了
你可以单独写一个过程然后在窗口的load事件中调用

Answer 3

Combo1_Click为单击后的。
可以用窗休的load事件。

Answer 4

在窗体初始化的时候给combol初始化，还没初始化你怎么触发combol的click事件？

Answer 5

把代码放到 FORM 的LOAD事件中然后循环前加一句RsTemp.MoveFrist

Answer 6

把植select 出来以后 付给 combox