Olha só ... 

 

Como você insere os dados no banco ??

 

vc vai fazer o seguinte.

 

Faça uma referencia DAO, depois faça o seguinte.

 

Na parte onde colocamos os códigos digite:

 

Dim rs as New adodb.recordset

 

sql = " select * from (tabela no banco de dados) order by (campo da tabela)"

 

Rs.open sql, (nome da conexão com o banco de dados)

 

Assim o recordset está aberto e pronto para ser usado.

 

Com o msflexgrid eu faço o seguinte:

 

If rs.Eof = False Then

rs.moveMin

Do while rs.eof = false

msflexgrid.addItem Trim(rs!nomedocamponobancodedados) & vbtab (Usamos para a proxima coluna) & _

                          Trim(rs!nomedeoutrocampo)

 

rs.movenext

 

Loop

 

msflexgrid.removeitem 1

 

End if