[RESOLVED] Creats an access database

[franki]

Hi All,
I have recently downlodaed some code that displays images which i have found very useful. In the sample app that i downloaded there was a form that let you create access databases. I clicked it and hey presto it created a database! only problem is I have searched through all the code but I cant work out how it does it????. I have included the code below that starts when you click the make database button.
If anyone could help me out I will be over the moon....

Private Sub LaVolpeButton3_Click()
    With frmMain.CommonDialog1
        .DialogTitle = "Create a very new database"
        .Filter = "Archive Design Database |*.mdb"
        .Flags = cdlOFNExplorer Or cdlOFNHideReadOnly
        .FileName = ""
        .ShowSave
    End With
    
    If frmMain.CommonDialog1.FileName = "" Then Exit Sub
    'filecopy copies a file -which file?
    FileCopy App.path & "\shell", frmMain.CommonDialog1.FileName
 
    If TestDb(frmMain.CommonDialog1.FileName) = True Then
        srcDB = frmMain.CommonDialog1.FileName
        lblDatabase.Caption = srcDB
        frmMain.loadcat
        frmMain.ListView1.ListItems.Clear
    End If
    
End Sub

Thanks
Franki