Visual Basic - problemas con ADODB.RecordSource

hola, espero puedan ayudarme...

mi problema es que me aparece el siguiente error
Error de compilación: No se encontró el método o el miembro de datos

y aparece sobresaltada la sentencia .RecordSource
sinceramente no sé qué hacer, lo único que trato de realizar que me envíe un MsgBox diciendo que la conexión sí se realizó, en caso contrario no.
estoy elaborando un programa en VB6 con MySQL, utilizando ADO y el driver correspondiente.
adjunto código::

Private Sub cmdAceptar_Click()

ADODB.RecordSource = "SELECT * FROM alta"

If ConexionMySQL.State = 1 Then
MsgBox "Conexión a la base de datos 'test' se ha realizado satisfactoriamente"
Else
MsgBox "No se pudo realizar la conexión con la base de datos 'test'"
End If
End Sub

de antemano, muchas gracias

ADODB es un conjunto de librerías para acceso a bases de datos que no tiene la propiedad RecordSource.

Quizá te refieras a Adodc que es el control Data de ADO.

hola, gracias por tu pronta respuesta... intenté esto:

quité ADODB a la sentencia ADODB.RescordSource y quedó .RecordeSource y nada, y lo intenté sin el punto. tambien intenté con ADODC.RecordeSource, pero dice que ADODC no es una variable definida.
qué más puedo hacer ????
no sé mucho de esto, espero tu gran ayuda
muchas gracias por lo de hasta ahora.

Lo que estás haciendo es referenciar el Tipo de objeto y no una variable para ejecutar un comando. Esto obviamente fallará.
Lo que debe suceder es esta secuencia:
- Declarar las variables de conexión, comando y lector
- Inicalizarlas
- Abrir la conexión, con los parámetros correctos (un conectionstring bastaría)
- Poner el comando
- Ejecutar el comando, obteniendo su resultado en el lector.

En suma, algo como esto (Para ADO 2.8):

Dim con As ADODB.Connection
Dim com As ADODB.Command
Dim rst As ADODB.Recordset

Set con = New ADODB.Connection
Set com = New ADODB.Command
Set rst = New ADODB.Recordset

con.ConnectionString = "" 'tu string de conexión
con.Open
com.ActiveConnection = con
com.CommandText = "select * from alta"
rst = com.Execute()

Espero que te sirva.

Saludos.