Hi everyone
I'm new in VBA and I have a problem with my code, if someone can help my I will be grateful.

I have this part of code in Excel VBA an work fine

Dim NumeroArchivo As Integer
Dim conta As Integer
Dim ListArchivAbierto As String
NumeroArchivo = Workbooks.Count
If NumeroArchivo >= 0 Then
    For conta = 1 To NumeroArchivo
        ListArchivAbierto = Workbooks(conta).Name
    Next conta
End If

But if I try put this code with properties access, doesn't work

    NumeroArchivo = DataAccessPages.Count
    If NumeroArchivo >= 0 Then
        For conta = 1 To NumeroArchivo
            ListArchivAbierto = DataAccessPages(conta).Name
        Next conta
        MsgBox (ListArchivAbierto)
    End If

I hope someone can help me
Thank you

What kind of errors are you getting? How does it not work? What version of Access are you using? Data Access Pages only exist in Access 2003 and 2007.