CreateDatabase(ByVal vFilespec As String) As Boolean

I need a simple function, which I will place in a bas module in my project, created using VB6, which creates an *.mdb file given the filename with ADOX 2.5. I do *not* want a class module, or any other type of wrapper module for the database, just a simle function CreateDatabase(ByVal vFilespec As String) As Boolean. I'll send you the *.mdb file upon acceptance of bid. This must be completed ASAP. Addendum: The database file that the function must create consists of 9 tables with a total of 47 fields (which may change before acceptance), and the fields have various datatypes and properties, as well as descriptions. When opened in Access, it must look exactly like the original that I will send you(except for column width's and things like that). I am a freelance programmer myself and have a number of large projects. Sometimes (and increasingly more often), I don't have the time to worry about, or type these lengthy (and often redundant) functions. Therefore I am also looking for a professional coder to take on small projects (or just functions, or a module, etc.) at times. ## Deliverables Complete source code of all work done. Complete copyrights to all work purchased. ## Platform "Visual Basic 6, ADOX 2.5" ## Deadline information Must be completed by 6pm this evening, with no run-time errors. No comments or documentation are needed, just source code.