Visual Basic - VOLCAR UNA SELECT CON ADO EN UN GRID

Tengo una base de datos en SQL Server y me conecto a ella mediante ADO, creo y establezco la conexión y el recordset así:

Set conexion = New ADODB.Connection
conexion.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=PC_PACO"
Ins= "SELECT * FROM PUESTOS"
Set rstPuestos = New ADODB.Recordset
rstPuestos.Open Ins, conexion, adOpenDynamic, adLockOptimistic
rstPuestos.MoveLast
rstPuestos.MoveFirst

Como vuelco la SELECT en un Flex Grid???? si alguien me puede ayudar...

Un saludo y gracias.

Esto es lo que yo uso para llenar un FelxGrid
Grid1.Rows = Rs.RecordCount + 1
Rs.MoveFirst
With Grid1
.Row = 0
.Col = 0: .Text = "Codigo"
.Col = 1: .Text = "Apellidos y Nombres"
.Col = 2: .Text = "Fecha Ing."
.Col = 3: .Text = "Fecha Cese"
.Col = 4: .Text = "Fecha Act."
End With
Do While Not Rs.EOF
Grid1.Row = Grid1.Row + 1
Grid1.Col = 0: Grid1.Text = IIf(IsNull(Rs.Fields(0)), "", Rs.Fields(0))
Grid1.Col = 1: Grid1.Text = Rs.Fields(1) & ", " & Rs.Fields(2)
Grid1.Col = 2: Grid1.Text = IIf(IsNull(Rs.Fields(3)), "", Rs.Fields(3))
Grid1.Col = 3: Grid1.Text = IIf(IsNull(Rs.Fields(4)), "", Rs.Fields(4))
Grid1.Col = 4: Grid1.Text = Format(Date, "dd/mm/yyyy")
Rs.MoveNext
Loop
Aunque seria mucho mas conveniente que uses el DataGrid pues para lenarlo con los datos de tu recordset lo unico que haces es:
Set DataGrid1.DataSource=rstPuestos
suerte