Access violation at address 004B2601 in module'ZLManager.exe'.Read of address 0000005C?

[lhl123hk]

问题1：
我用数据模块做程序时，出现对话筐提示大致意思：
Access violation at address 004B2601 in module'ZLManager.exe'.Read of address 0000005C

如何解决？
但不用数据模块时不出现这个问题？
具体如下解释：
假设数据模块名字是data
上面放着ADOConnection1和ADOQuery1
在登录窗口login中使用data中的ADOQuery1时出现上述提示，而在登录窗口login中放上ADOConnection1和ADOQuery1使用时不会有错误
这是为什么？
如何解决？
谢谢！！！
问题2：
运行程序时每次都出现 database login对话框，如何不让它出现这个对话框就能连接数据库？
谢啦

[GARNETT2183]

把Loginprompt属性设为True可以关闭对话框....

[GARNETT2183]

设为false...刚说错了...

[ithinkthereforeiam]

你的数据模块是不是在登录窗口之前创建的?

[lhl123hk]

数据模块是在登录窗口之后创建的
这与创建也有关系吗？

[Rubi]

delphi经常出现地址错误，不知道是为什么？

[ithinkthereforeiam]

当然应该在登录窗口之前创建，要不你调用一个还没创建的东西当然会出错。

[aiirii]

假设数据模块名字是data
应该在login的 oncreate事件中创建，或者在之前创建

[slipsun]

在项目管理里,把数据模块最先创建.然后再是LOGIN模块.

[lhl123hk]

在login的 oncreate事件中创建 怎么才能通过编译？
我这样写程序时错误行停在（ with Data.ADOQuery1 do）处
procedure Tlogin.FormCreate(Sender: TObject);
begin
TryCount:=0;
ComboBox1.Clear;
with Data.ADOQuery1 do
begin
Close;
Sql.Clear;
Sql.Add('Select * from LaoshiInfo');
Open;
if RecordCount<1 then
begin
Showmessage('目前没有任何用户！请建立一个管理员用户。');
Close;
Sql.Clear;
Sql.Add('Selcet * from LaoshiInfo');
Open;
while not Eof do
begin
ComboBox1.Items.Add(Fieldbyname('老师名称').AsString);
next;
end;
end else
begin
while not Eof do
begin
ComboBox1.Items.Add(Fieldbyname('老师名称').AsString);
next;
end;
end;

end;
end;