CoInitialize Ado в dll постоянный запрос логина

[hemn6vyr]

Создаю новую БД так.

Function CreateDB(FileName: String): String; Stdcall;
  Var
    Cat: OLEVariant;
  Begin
    Result := '';
    Try
      Cat := CreateOleObject('ADOX.Catalog');
      Cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';Persist Security Info=False');
      Cat := NULL;
    Except
      On E: Exception Do
        Result := E.Message;
    End;
  End;

После изменения настроек компиляции на использование runtime библиотек выскакивала ошибка, типа нужно вызвать CoInitialize.
После вызова, при каждом обращении к базе данных выходит окошко с запросом логина и пароля.
Это функция присвоения строки соединения, в которой явно указано что логина и пароля нет.

Function ConStr(DataBase: String): TStringList; Stdcall;
  Begin;
    Connect := TADOConnection.Create(Nil);
    Query := TADOQuery.Create(Nil);
    Connect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DataBase + ';Persist Security Info=False';
    Query.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DataBase + ';Persist Security Info=False';
    Result := TStringList.Create;
    Connect.GetTableNames(Result);
  End;

Вопрос. Как можно избавиться от ComObj и создавать базу данных через ado или как избавиться от окошка запроса логина и пароля?

[evg_m]

или как избавиться от окошка запроса логина и пароля?

connect.LoginPromt:=false;

[hemn6vyr]

Сообщение от evg_m

connect.LoginPromt:=false;

Спасибо, я что-то даже не подумал на счёт этого. Вернее даже забыл.