Public Function InitDB(ByVal Folder As String) As DBError
        Dim DataCommand As New Elevate.ElevateDB.Data.EDBCommand
        Dim DataConnection As New Elevate.ElevateDB.Data.EDBConnection

        If Folder = "" Then
            InitDB = DBError.FolderNameMissing
            Exit Function
        End If

        If Folder.Substring(Len(Folder) - 1, 1) <> "\" Then Folder += "\"

        If File.Exists(Folder + DBFILENAME + "." + DBFILEEXT) Then
            InitDB = DBError.DBAlreadyExists
            Exit Function
        End If

        DataConnection.ConnectionString = "Type=Local; Database=" + DBNAME
        DataCommand.Connection = DataConnection
        DataConnection.Open()
        DataCommand.CommandText = "CREATE DATABASE " + DBNAME + " PATH='" + Folder + "' DESCRIPTION='" + DBDESCRIPTION + "' CONFIGPATH='" + Folder + "'"

        DataConnection.Close()

        InitDB = DBError.NoError

        DataCommand = Nothing
        DataConnection = Nothing
    End Function