Code:
Public Sub CreateNewDB()
Dim strTargetDB As String
Dim qdf As QueryDef
Dim tbl As TableDef
Dim strNewDB As String
strNewDB = InputBox("Please Enter New Database Name", "Database Name", "New_database")
On Error Resume Next
strTargetDB = CurrentProject.Path & "\" & strNewDB & ".mdb"
DBEngine.CreateDatabase
Leave a comment: