谢谢帮我解决这个问题

Question

各位朋友，在下有个问题不明白，为什么我的数据得不到即时的显示：
我的设计如下：
设计两个窗体，一个客户信息窗体，一个日志窗体，日志的窗体有显示客户的信息（ComBobox）控件，
这个控件邦定在客户信息表中；
问题是我在客户窗体中添加一条信息，而日志窗体并没有及时更新客户信息，当再一次进入该窗体，
就可以看到更新的信息，
邦定客户信息代码如下：
Private Sub Form_Load()
 '连接客户表相关信息
  sql = "select * from [客户信息] "
    rs.Open sql, conn
  If Not (rs.BOF And rs.EOF) Then
      Do While Not rs.EOF
      cobkehu.AddItem rs.Fields(0) & ""
      rs.MoveNext
      Loop
    End If
      rs.Close
End Sub
请问我该如何解决这个问题，，谢谢！~

Answer 1

你更新数据库后，并没有更新 ComBobox 控件，因为你的ComBobox控件是在Form_Load里填充的，也就是说，你的Form_Load事件被触发时，才更新ComBobox，所以，当再一次进入该窗体，才可以看到更新的信息

Answer 2

解决方法：
把那个 Form_Load的填充代码移到 Combo的DropDown()事件里：Private Sub Combo1_DropDown()
    Dim rs As New ADODB.Recordset
    '连接客户表相关信息
    Sql = "select * from [客户信息] "
    rs.Open Sql, conn
    If Not (rs.BOF And rs.EOF) Then
        Do While Not rs.EOF
        cobkehu.AddItem rs.Fields(0) & ""
        rs.MoveNext
        Loop
    End If
    rs.Close
End Sub

Answer 3

Private Sub Combo1_DropDown()
    Dim rs As New ADODB.Recordset
    '连接客户表相关信息
    Sql = "select * from [客户信息] "
    rs.Open Sql, conn
    If Not (rs.BOF And rs.EOF) Then
        Do While Not rs.EOF
        cobkehu.AddItem rs.Fields(0) & ""
        rs.MoveNext
        Loop
    End If
    rs.Close
    Set rs=Nothing
End Sub