帮我看看

[yzh]

初学VB，请大家帮我看看这段代码！
Private Sub Command1_Click()
Dim rs As Recordset
Screen.MousePointer = vbHourglass
Set rdc = New RDS.DataControl

rdc.ExecuteOptions = adcExecAsync
rdc.SQL = "SELECT * FROM Authors"
rdc.Connect = "DSN=mydsn"
rdc.Server = "http://localhost/"
rdc.Refresh
Set rs = rdc.Recordset

While rdc.ReadyState = adcReadyStateLoaded
DoEvents
Wend
If rs.EOF And rs.BOF Then
MsgBox ("对不起，数据库中没有记录!")
Else
Do Until rs.EOF
List1.AddItem rs.Fields("Author")
rs.MoveNext
Loop
End If
Set rdc = Nothing
Screen.MousePointer = vbNormal
End Sub

运行错误：实时错误'91'
对象变量或with块变量未设置

我的系统是win2000 server
vb 6.0 中文版
在odbc中设系统dsn=mydsn
引用
ADOR
RDS

[yzh]

ADO连接本地数据源的成功过，但要连接远程主机上的DSN我还没有成功过！所以我才求助于RDS。能给我一个示例吗？谢谢!
adam
[e-mail]

[weidong70]

问题可能出在
rdc.SQL = "SELECT * FROM Authors"
这句上。如果你用ODBC联接网络数据库，并且在程序中完全用ADO技术
可能会好一些。因为ADO在SQL上也很出色。
如果试过后有什么问题，可以再联系。