Private Sub Form_Load()
    Dim i As Integer, l As Integer
    
    Set objRs = ExecuteSQL("Select * From 学院信息表", msg_Sql)
    l = objRs.RecordCount
    ReDim a学院(l) As String
    For i = 0 To l - 1
        Combo0.AddItem Trim(objRs("名称"))
        a学院(i) = Trim(objRs("编号"))
        objRs.MoveNext
    Next i
    Combo0.ListIndex = 0
    rs = 0
    Cell1_Setup Cell1
End Sub

