Как получить доступ к свойствам компонента из dataModule unit?

Question

[EVOSandru6]

Добрый день,

Такая проблемка:

1. В главной форме vcl формы (Unit = Main; Name = MainForm) есть событие FormCreate основной .

2. Есть DataModule юнит (Unit = Data; Name = DataModule1), где хранятся невизуальные компоненты, в том числе TADOConnection(Name = DB)

3. Data подключен в Main:

#include <vcl.h>
#pragma hdrstop
// модуль хранения невизуальных компонентов
#include "Data.h"

В FormCreate файла Main.cpp есть такой код:

UnicodeString connectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=db_name";

DataModule1->DB->ConnectionString = connectionString;

На данную строку:

DataModule1->DB->ConnectionString = connectionString;

Выпадает:

Project LiderProject.exe raised exception dass EAccessViolation with message 'Access violation at address 00402A62
in module 'LiderProject.exe'. Read of address 00000060’.

Если коменчу данную строку и пишу:

ShowMessage(connectionString1 + "\n\n" + connectionString2);

То нормально открывается popup:

Provider= MSDASQL.l;Persist Security Info= False;User
ID=root;Data Source=lider_msks

Также через ctrl + пробел , нормально всплывает каждый элемент цепочки:

D ( ctrl + пробел) ataModule1( ctrl + пробел) DB( ctrl + пробел) ConnectionString

В чем может быть причина проблемы?