Dudas sobre ADO y Visual Basic 6.0

Algo que hay que aclarar primero: ADODC (ADO Data Control) es un ActiveX que justamente lo que te permite es la facilidad de operar con ADODB, ahora bien, para hacer lo que tu necesitas, la forma más fácil será que cambies la propiedad source del ADODC a la consulta que tu necesites y luego abras nuevamente el recordset del ADODC; quedaría algo así:
'Con este boton cambiarías el contenido del Recordset y automáticamente se actualizaría el DataGrid
Private Sub Button1_Click()
With ADODC1.Recordset
.Close
.Source="Tu Nueve Consulta SQL"
.Open
End With
End Sub
Si tienes dudas avisame!

Con el control ADODC lo se hacer.Mi pregunta era si es posible hacer lo mismo mediante código con un CON (ADODB.Connection) y un RS (ADODB. Recordset), ademas de un control Datagrid.Yo lo he intentado de esta manera pero nada:
Option Explicit
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Form_Load()
Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString = "E:\UPSAM\VISUAL\PROYECTO\VIDEOCLUB.MDB"
CN.Open
Set RS = New ADODB.Recordset
RS.ActiveConnection = CN
RS.LockType = adLockOptimistic
RS.CursorType = adOpenKeyset
RS.Source = "Select * FROM peliculas WHERE año<=2000 ORDER By nombre DESC"
RS.Open
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub
Heeelpppppp meeeeee!

Es posible, claro que es posible.
Yo enlazo a la BD de la siguiente forma:
Creo 1 ADODB. Connection por BD y tantos ADODB. Recordset como tablas y/o consultas quiera manejar.
Dim cn as ADODB.Connection
Dim rs as ADODB.Recordset
Form_Load
Set cn = New ADODB.Connection
'El enlace a la BD lo hago con ODBC
cn.ConnectionString = "DSN=FuenteDeDatosODBC"
cn.open
Set rs = New ADODB.Recordset
rs.Activeconection=cn
rs.LockType=Depende de lo que necesites
rs.
rs.source="SELECT * FROM Clientes"
'o rs.source="SELECT * FROM Clientes WHERE Poblacion ='Isla Perejil'" o cualquier consulta SQL
rs.open
Puede que se me pase algo...
Si quieres saber más de ADO pasate por:
http://support.microsoft.com/default.aspx?scid=kb;es;e168336
Una vez tengas los datos en el recordset puedes asignarlos al Datagrid:
set Datagrid.datasource = rs
y ya ta.

Todo lo que me dices lo hago pero no me sale nada en el Datagrid (sale en blanco).
Mi código es:
Option Explicit
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Private Sub Form_Load()
Set CN = New ADODB.Connection
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString = "E:\UPSAM\VISUAL\PROYECTO\VIDEOCLUB.MDB"
CN.Open
Set RS = New ADODB.Recordset
RS.ActiveConnection = CN
RS.LockType = adLockOptimistic
RS.CursorType = adOpenKeyset
RS.Source = "Select * FROM peliculas WHERE año<=2000 ORDER By nombre DESC"
RS.Open
Set DataGrid1.DataSource = RS
DataGrid1.Refresh
End Sub
----------------------------------
A lo mejor es que hay que hacer algo con el datagrid en tiempo de diseño, es decir, ¿alguna propiedad como "datasource"(aunque lo hagas también en el código)?
O a lo mejor es que la consulta SQL esta mal redactada...(los nombres de los campos y el de la tabla 'peliculas' están bien porque los he repasado ya 1000 veces, ¿así cómo el tipo numérico del campo 'Año')?, no se...
Las referencias a "Microsoft Data Objects Library y Recordset" también están incluidas en el proyecto...
Heeeelppp meeeeeeee!

Todo está bien.
¿Cuál es problema exactamente?
¿El grid se queda en blanco? ¿El rs tiene registros y no se muestra ninguno?
¿Te da un error?

El problema es que no me da ningún error pero el grid sale en blanco y no lo entiendo. ¿Será qué hay que utilizar también la propiedad del DataGrid "datamember"?