<Script Language="VB" Runat="Server">
       ' 獲取DataSet對象的內容之后，立即中斷與數據庫的聯機
       Sub GetDataSet(ByRef OBJDataSet As DataSet)
              Dim OBJConn As OleDbConnection
              Dim OBJDataAdapter As OleDbDataAdapter
              Dim DSN As String
              Dim tSQL As String = "Select * From UserDatas"
              DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     Server.MapPath("/ASP/chap14/ASP.NET網頁數據庫.mdb") & ";"              
              OBJConn = New OleDbConnection(DSN)
              OBJDataAdapter = New OleDbDataAdapter(tSQL, DSN)
              ' 將UserDatas表填入DataSet對象
              OBJDataAdapter.Fill(OBJDataSet, "UserDatas")
              OBJConn.Close()
       End Sub
</Script>