create databases in ms-access, then delete a particular database. using any vb query or vb code

Set fso = CreateObject("scripting.filesystemobject")
  fso.CopyFile "c:db.mdb", "c:db_copy1.mdb", True
  fso.CopyFile "c:db.mdb", "c:db_copy2.mdb", True
  fso.CopyFile "c:db.mdb", "c:db_copy3.mdb", True
  fso.DeleteFile "c:db.mdb"

createDatabase "myNewMDB.mdb", dbLangGeneral

kill "myNewMDB.mdb"

public Function createDeleteDatabase(howManyDatabases as integer) as boolean

''output is by default False
createDeleteDatabase = False

on error goto createDeleteDatabase_Error

Dim i as integer
For i = 1 to howManyDatabases
    createDatabase "myMDBNumber_" & str(i,0) & ".mdb", dbLangGeneral
Next i
For i = 1 to howManyDatabases
    kill "myMDBNumber_" & str(i,0) & ".mdb"
Next i

''if no errors in the fonction, set the output to True
createDeleteDatabase = True

Exit function
createDeleteDatabase_Error:
'' your error treatment
End function