步驟 2：初始化 [主要] 清單方塊

若要宣告全域 Record 和 Recordset 物件，請將下列程式碼插入 Form1 的 (General) (Declarations) 中：

Option Explicit  
Dim grec As Record  
Dim grs As Recordset  

此程式碼會宣告 Record 和 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 會以指定為 ActiveConnection 的 URL 開啟。 如果 URL 存在，則會予以開啟；如果 URL 尚未存在，則會予以建立。 請注意，應使用環境中有效的 URL 取代 https://servername/foldername/。

Recordset 物件 grs 會在 Record grec 的子系上開啟。 然後，以發佈至 URL 的資源檔案名稱填入 lstMain。

另請參閱

網際網路發佈案例
步驟 1：設定 Visual Basic 專案
步驟 3：填入 [欄位] 清單方塊