Este es un ejemplo sencillo para eso.
Private Sub Form_Load()
Dim varSQL As String
varSQL = "SELECT idEmpleado, Codigo, Nombres, TipoE, SueldoD FROM Empleado WHERE Estado = 1 ORDER BY Nombres"
' El 5 es por que son 5 campos, ese parametro lo vas a cambiar dependiendo de la consulta SELECT
' Asi el procedimiento de llenar el Grid se hace mas generico
llenaGrid grdDatos, varSQL, 5
End Sub
´Esta es el procedimiento para agregar los datos de tu consulta a un Grid.
' El tercer parametro hace que el llenado de grid sea generico y puedas llenar grid de diferentes tamaños solo cambiandole ese parametro
Public Sub llenaGrid(grdTemp As MSFlexGrid, strConsulta As String, cuantosSon As Integer)
Dim rs As ADODB.Recordset, x As Integer, cadena As String
On Error GoTo errHandle
Set rs = cn.Execute(strConsulta)
grdTemp.Rows = 1
If Not rs.BOF And Not rs.EOF Then
Do While Not rs.EOF
For x = 0 To cuantosSon - 1
cadena = cadena & rs.Fields.Item(x).Value & Chr(9)
Next x
grdTemp.AddItem cadena
rs.MoveNext
cadena = ""
Loop
End If
If rs.State = adStateOpen Then rs.Close
Exit Sub
errHandle:
MsgBox "llenaGrid" & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error en Funcion"
End Sub