如何存取資料庫？(編號：6530)

這是書上的範例，可是執行時出現「指定的處理器拒絕存取」，有沒有人可以告訴我這是怎麼回事？使用的是VB6.0、windows98
還有程式內容如下：
Dim rs As ADODB.Recordset
Dim rdso As New rds.DataControl
Private Sub Command1_Click()
rdso.Server = "http://127.0.0.1"
　　rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51" & _
　　　　　　　　　　^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
　　　　　　　　　　這個部份書上是說是ODBC或OLE DB的驅動程式名稱
　　　　　　　　　　有沒有人可以告訴我這是什麼，我該如何知道我用的
　　　　　　　　　　是哪一個？
　　　　　　　　　 "Data Source=c:\Inetpub\wwwroot\ipdb.mdb"
　　rdso.SQL = "select * From ip"
　　rdso.ExecuteOptions = adcExecSync
　　rdso.Refresh
　　Set rs = rdso.Recordset
　　OutputRecordset rs
End Sub
Sub OutputRecordset(rs As ADODB.Recordset)
For i = 0 To rs.Fields.Count - 1
　　　　Debug.Print rs.Fields(i).Name,
　　Next
　　Debug.Print
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　While Not rs.EOF
　　　　For i = 0 To rs.Fields.Count - 1
　　　　　　Debug.Print rs.Fields(i),
　　　　Next
　　　　Debug.Print
　　　　rs.MoveNext
　　Wend
End Sub