Could some one tell me what this does

[GingerFreak]

Found = False
    If Dir(App.Path & "\Versions.mdb") <> "" Then
        Set dbVersions = OpenDatabase(App.Path & "\Versions.mdb")
    Else
        Set dbVersions = CreateDatabase(App.Path & "\Versions.mdb", dbLangGeneral)
    End If
    For Each tblVersions In dbVersions.TableDefs 'This bit here
        If tblVersions.Attributes = 0 And tblVersions.Name = "Stock" Then
            Found = True
            Exit For
        End If
    Next 'Too here
    If Not Found Then Create.StockDatabase

Couldn't I just do this

If Dir(App.Path & "\Versions.mdb") <> "" Then
        Set dbVersions = OpenDatabase(App.Path & "\Versions.mdb")
    Else
        Set dbVersions = CreateDatabase(App.Path & "\Versions.mdb", dbLangGeneral)
Create.stockdatabase
    End If