.....
If FirstTime Then
installDB(DB)
installDB(DB2)
SQL1.Initialize(DBtarget, DB, True)
SQL2.Initialize(DBtarget, DB2, True)
End If
.....MODIFIED:
Sub installDB (dataBase As String)
If File.Exists(DBtarget, dataBase) = False Then
File.Copy(File.DirAssets, dataBase, DBtarget, dataBase)
End If
End Sub