如何创建并使用一个断开连接的记录集的数据访问页？

<SCRIPT language=vbscript event=BeforeInitialBind(info) for=MSODSC>
<!--
Dim rs
Dim strShapeText
Dim strConnectionString
Dim strDataSource
adOpenKeyset=1
adLockOptimistic=3
If vbyes=msgbox("使用断开连接的记录集吗?",vbyesno) Then On Error Resume Next
strDataSource = InputBox ("请输入要使用的断开连接的记录集的路径:", "Enter Path", "C:\Program Files\Microsoft Office\Office10\Samples\ Northwind.mdb")
strShapeText = MSODSC.RootRecordsetDefs(0).ShapeText
strConnectionString = "Provider=MSDataShape.1; 
Persist Security Info=False;Data Source=" & strDataSource & ";User ID=Admin;Data Provider=Microsoft.Jet.OLEDB.4.0"
Set rs = CreateObject("ADODB.Recordset")
rs.Open strShapeText, strConnectionString, adOpenKeyset, 
adLockOptimistic
If err.Number <> 0 Then
MsgBox "错误:" & err.description & "Error " & err.number
End If
MSODSC.SetRootRecordset "Categories", rs
End If
-->
</SCRIPT>