Visual Basic - adodb.recorset

saludos compañeros

quisiera saber si alguien sabe como puedo llenar un ADODB.Recordset en forma manual, ya que quiero hacer un reporte con dartareport pero en la propiedad datasource me da un error de tipo no coincide, al intentar igualar la propiedad datasource con un rdoResultset

no logre conectar una base de datos Mysql con ADO y utilice RDO, pero ahora se me presento este problema al intentar hacer un reporte con datareport.

por esto quiero intentar "llenar" el ADODB.Recordset en forma manual y utilizarlo en el datareport, ya que este tipo de recorset si lo acepta la propiedad datasource del datareport.

gracias por su colaboracion

Dim cnn as adodb.connection
Dim rst as adodb.recordset

set cnn = new adodb.connection
set rst = new adodb.recordset

cnn.cursorlocation = aduseclient
cnn.open "TU CADENA DE CONECCION"

rst.open "Select * from TU_TABLA;", cnn, , adOpenKeyset, adLockOptimistic, adcmdtext

rst.movefirst

msgbox rst.recordcount

No tengo VB6 en frente de mi...escribo esto de memoria asi que tendras que verificar que este correcto en la sintaxis. Pero a grandes rasgos asi es como cargas un Adodb.Recordset manualmente.

Suerte.

Gracias por tu respuesta.

pero no es posible conectarme con ADO al intentarlo me da "Error no especificado", y no ha habido poder humano que halla logrado conectarlo, por eso decidi hacerlo con RDO, todo iba bien hasta que decidi hacer un reporte con DataReport.

asi que mi problema no es conectarme con ADO sino llenar en forma manual el ADODB.RECORDSET.

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockBatchOptimistic
rst.CursorLocation = adUseClient

'Definimos los campos que va a tener nuestro recordset
rst.Fields.Append "Nombre", adBSTR, 10, adFldUpdatable
rst.Fields.Append "Apellido", adBSTR, 10, adFldUpdatable

rst.Open
'Llenamos nuestro rst con 3 records...
rst.AddNew
rst.Fields("Nombre").Value = "Marcelo"
rst.Fields("Apellido").Value = "Rojas"
rst.Update

rst.AddNew
rst.Fields("Nombre").Value = "Guillermo"
rst.Fields("Apellido").Value = "Sanchez"
rst.Update

rst.AddNew
rst.Fields("Nombre").Value = "Willie"
rst.Fields("Apellido").Value = "Amigo"
rst.Update

rst.MoveFirst

Do While rst.EOF = False
MsgBox rst.Fields("Nombre").Value & " " & rst.Fields("Apellido").Value
rst.MoveNext
Loop
'limpiamos memoria y adios...
Set rst = Nothing

'Suerte

gracias amigo

esto era lo que necesitaba

muchas gracias!!!!

muy bueno el aporte
Gracias