Hola

Espero q me auxilien ya q me surgio un error en lo siguiente:

Private Sub Command2_Click()
Set BDD = OpenDatabase("d:\base2.mdb")
SQL = "SELECT * FROM tabla1 "
Set TBL = BDD.OpenRecordset(SQL)
If TBL.RecordCount > 0 Then
With MfgReporte
Do While Not TBL.EOF
.Rows = filas
filas = filas + 1
.TextMatrix(filas - 2, 0) = TBL("secuencia")
.TextMatrix(filas - 2, 1) = TBL("nombre")
.TextMatrix(filas - 2, 2) = TBL("apellido")
.TextMatrix(filas - 2, 3) = TBL("edad")

Loop
End With
End If
End Sub

al mometo de ejecutar me sale un erro q es el siguiente...


error 381

el sub indice esta fuera del intervalo....

De antemano gracias por su ayuda.

Salu2