步驟 2：初始化主要清單框
若要宣告全域 Record 和 Recordset 物件，請將下列程式代碼插入 Form1 的 [一般] （宣告） 中：
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 取代 https://servername/foldername/。
Recordset 物件 grs是在 Record 的子項目上開啟的，grec。 然後，lstMain 會填入發佈至 URL 的資源檔名。