SoloCodigo

Hola amigos programadores, Tengo la siguiente consulta. El programa se conecta con ADO, con el cursor del lado del cliente.
He realizado una consulta que abre una tabla cumpliendo dos condiciones. Filtros con Where. Lleno un MSHFlexGrid, y todo bien hasta aca. Luego necesito mandar a imprimir con Crystal Report 9 esta consulta filtrada. Por parametros no puedo pues no me toma los valores nulos. Luego necesito enviar los registros del MSHFlexGrid a una tabla que sera temporal.
Abro el Recordset
Dim sqlConsulta As New ADODB.Recordset
sqlConsulta.Open "Select * From consultacompras",cn,adOpenSatatic,adLockOptimistic,adCmdText
sqlCons.AddNew.
Me da el siguiente ERROR: me dice que el registro ha sido borrado o que BOF o EOF es TRUE. he probado distintas cosas pero no he logrado ninguna solucion.
Desde ya agradezco sugerencias y/o soluciones.
Saludos