problema al recorrer un recordset

[anadelaisla]

También tengo otro problema, q es cdo ejecuto este código:

Set rs.DataSource = Me.dgrid.DataSource


If Not (rs.BOF And rs.EOF) Then
rs.MoveFirst
Do While Not rs.EOF
strSQL = "INSERT INTO albaran_detalle (idAlbaran, clave_producto, num_unidades, coste_albaran)" & _
"VALUES ( " & Val(idAlbaranReg.text) & "," & Val(Me.dgprodcomprados.Columns(0).text) & ", " & Me.dgprodcomprados.Columns(2).text & ", " & Me.dgprodcomprados.Columns(3).text & ") "
Set rs2= Cn.Execute(strSQL)
rs.MoveNext --> aqui me da el error
Loop
End If

me dice donde os he indicado "operacion no permitida si el objeto está cerrado", y lo q he hecho es asociar el recordset al datagrid, ya que quiero q me mientras haya datos en el recordset me los guarde en la base de datos y previamente a ello he definido el recordset:
Dim rs As New ADODB.Recordset y abierto está pq me hace la query correctmente.

Gracias.
Saludos.