Change from Excel vba to Access vba

[mitch_oso]

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

[Nutster]

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.