Pues basicamente es cargar un recordset y despues asignar el DataSource del flex al recordset, algo asi:
Código:
Dim rs As New ADODB.Recordset
sql="select * from tabla where criterio='" & criterio & "'"
Set rs = cn.Execute(sql)
Set flex.DataSource = rs
Ya se que no he puesto codigo para abrir la conexion, pero ya viene abierta.
Por las pruebas que voy haciendo, se flipa cuando el recordset le llega vacio.