ezequiel
03 de Marzo del 2004

hola que tal sdemingo me sigue dando el mismo mensaje "no hay registro activo"
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



gracias por las molestias