recordset no data1 da erro e sai.

Boa noite,

sou novo aki no fórum...

Estava lendo o tópico em busca de ajuda...

estou com o seguinte problema...

segue esta mesma linha de código do VBNET porém quando chega na parte onde seta a recordset no data1 da erro e sai..

segue a linha...

set Data1.recordset = rsP

desde já gradadeço...

flw