步骤 2：初始化主列表框

若要声明全局记录和 Recordset 对象，请将以下代码插入 Form1 的 （常规） （声明） 中：

Option Explicit  
Dim grec As Record  
Dim grs As Recordset  

此代码声明记录和 Recordset 对象的全局对象引用，这些对象稍后将在此方案中使用。

连接到 URL 并填充 lstMain

将以下代码插入 Form1 的 Form Load 事件处理程序中：

Private Sub Form_Load()  
    Set grec = New Record  
    Set grs = New Recordset  
    grec.Open "", "URL=https://servername/foldername/", , _  
        adOpenIfExists Or adCreateCollection  
    Set grs = grec.GetChildren  
    While Not grs.EOF  
        lstMain.AddItem grs(0)  
        grs.MoveNext  
    Wend  
End Sub  

此代码实例化全局 Record 和 Recordset 对象。 Record 对象（grec）以指定的 URL 作为 ActiveConnection 打开。 如果 URL 存在，则打开它;如果它尚不存在，则会创建它。 请注意，应将 https://servername/foldername/ 替换为环境中的有效 URL。

Recordset 对象 grs是在 Record 的子对象 grec上创建的。 然后，使用发布到 URL 的资源的文件名填充 lstMain。

另请参阅

Internet 出版场景
步骤 1：设置 Visual Basic 项目
步骤 3：填充字段列表框