Visual Basic - cargar grid

Hola amigos. Gracias por leer este mensaje.
Estoy comenzando con el tema de bases de datos con visual y tengo una pregunta super basica:
Como cargo una dbgrig con los datos de un recordset.
Estoy trabajando solo con codigo. Lo que hice fue lo siguiente:
En un modulo .bas
Public MiConexion As New ADODB.Connection
Public MyRst As New ADODB.Recordset
En el form_load
MiConexion.Open "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Documents and Settings\b.ferron\Desktop\omar project\db0.mdb;Persist Security Info=False"
al click de un command button
MyRst.Open "Select * from Customers", MiConexion, adOpenStatic, adLockReadOnly, adCmdText

Se supone que con esto tengo mi recordset listo. Lo que nesecito ahora es ver ese recordset en una DBgrid. Si de paso saben como cargar los datos a una MSFlexgrid seria super bueno

Muchas gracias por la ayuda.

este es el procediemiento básico para cargar el msflexgrid
consultor es el msflexgrid

sql = "Select * from consulta where cic = '" & Text1.Text & "' ORDER BY CIC"
Set rc = db.OpenRecordset(sql)
If rc.RecordCount <= 0 Then Exit Sub
consultor.Rows = rc.RecordCount + 1
consultor.Row = 0
consultor.Col = 0
consultor.Text = "Denominación"
consultor.CellAlignment = 4
consultor.ColWidth(consultor.Col) = 2500

consultor.Col = 1
consultor.Text = "Posología"
consultor.CellAlignment = 4
consultor.ColWidth(consultor.Col) = 900

consultor.Col = 2
consultor.Text = "Fecha Inicio"
consultor.CellAlignment = 4
consultor.ColWidth(consultor.Col) = 1000


consultor.Col = 3
consultor.Text = "Fecha Caducidad"
consultor.CellAlignment = 4
consultor.ColWidth(consultor.Col) = 1500

For contador = 0 To rc.RecordCount - 1
consultor.Row = contador + 1
consultor.Col = 0
consultor.Text = rc!denominacion
consultor.Col = 1
consultor.Text = rc!posologia
consultor.Col = 2
consultor.Text = rc![fecha inicio]
consultor.Col = 3
consultor.Text = rc![fecha caducidad]
rc.MoveNext

Next