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

[nateobot]

I **think** it is looking first to see if that Stock table exists. If it does not exist then it runs Create.StockDatabase

Your code does not check for this table. It could be an important step in the rest of the code to check for this table.

[Cander]

It would a safe bet to keep that code there as it is possible for someone to open the database manually and delete the table.

[GingerFreak]

Basicly if the database exists then the table will exist and if
the database don't exist then the table wont exist so can I
just cut that bit of code out

[GingerFreak]

Good point Cander but my database has over 6 tables and I
don't want to check all of them. Plus the system it will be on
doesn't have any software to open a database. So do you think
I need it