ayuda es facil

ezequiel
04 de Marzo del 2004
hola que tal alguien sabe porque este codigo me da el mensaje "no hay registro activo", y como puedo hacer para que no me pase esto .

El codigo es para pasar los datos de una columna de un mshflexgrid a una tabla de excel utilizando un datacontrol
Private Sub Command2_Click()
Dim i As Variant
Dim Descripcion As String
For i = 1 To 1000
If IsNull(Data1.Recordset!Descripcion) Then
Descripcion = ""
Else
Descripcion = Data1.Recordset!Descripcion
End If
Grid.TextMatrix(i, 4) = Descripcion

Data1.Recordset.MoveNext
Next i

End Sub