关于“运行时错误91，未设置对象变量或with block变量“

[kinvb]

我在win2000下并装有vb6.0下运行程序是正常的。而在没有装vb6.0系统下运行时，就出现“运行时错误91，未设置对象变量或with block变量“。我将所有的dll和ocx
文件都包含进去了，问题也没有得解决。我在程序中只要用的对象是：
dim ado1 as new rescordset
....

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;driver={SQL Server};server=" + servername + ";uid=" + entername + ";pwd=" + enterpass + ";database=" + databasename + ";"

Set adoPrimaryRS = New Recordset
Set adoenter = New Recordset
adoPrimaryRS.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimistic

adoenter.Open "select 学号,密码 from " + tablename + "", db, adOpenStatic, adLockOptimistic


Set ado1= adoPrimaryRS
请各位帮帮我吧！定给高分。

[wangsitao]

dll和ocx都注册了没有

[visualbasic999]

在哪句出错？

[sonicdater]

引用 ADO 库后:
Dim ado1 As New ADODB.RecordSet