Ejemplo de MSDN no funciona con un objeto RDS.DataCotrol

[jasamestica]

Hola tengo el siguiente problema con este codigo que saque de la msdn, me da un error 91:la variable de tipo object o with no esta establecida


------------------------------------------------------------------------
Dim rdc As RDS.DataControl

Private Sub Command1_Click()
Set rdc = New RDS.DataControl
Set rec = New ADOR.Recordset
rdc.sql = "select * from datos"
rdc.executeoptions = adcexecasync
rdc.Connect = "dsn=Pruebas"
rdc.server = "http://sebastian/"
rdc.Refresh

While rdc.readystate = adcreadystateloaded
DoEvents

Wend

List1.AddItem rdc.Recordset.fields("nombre")




Set rdc = Nothing

Screen.MousePointer = vbNormal



End Sub
-------------------------------------------------------------------------

Quiero saber porque da error, no lo entiendo, gracias.