新手问个intraweb的问题 请朋友多帮下啦. (Access violation 错误)(100分)

小弟新学的IntraWeb编程,现在只是从书上做个简单的例子,可是一直运行不了.请哪位大家帮看下哪里有问题

unit IWUnit1;
{PUBDIST}

interface

uses
IWAppForm, IWApplication, IWTypes, IWCompRectangle, Classes, Controls,
IWControl, IWCompText, FrameLegt, Forms, Frame, IWGrids, IWDBGrids,
IWCompButton, IWCompEdit, IWCompLabel;

type
TformMain = class(TIWAppForm)
FrameTop1: TFrameTop;
Frameleft1: TFrameleft;
IWDBGrid1: TIWDBGrid;
IWLabel1: TIWLabel;
LbUser: TIWLabel;
IWLabel3: TIWLabel;
EdYear: TIWEdit;
IWLabel4: TIWLabel;
EdMonth: TIWEdit;
IWButton1: TIWButton;
procedure Frameleft1IWLink1Click(Sender: TObject);
procedure IWAppFormCreate(Sender: TObject);
procedure IWButton1Click(Sender: TObject);
public
end;

implementation
{$R *.dfm}

uses
ServerController, utJJ, DatamoduleUnit;

procedure TformMain.Frameleft1IWLink1Click(Sender: TObject);
begin
Release;
TformJJ.Create(WebApplication).Show;

end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
with TPCPSession(WebApplication.Data) do begin
lbUser.Caption:=Name;
end;
end;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
with Datamodule1 do
begin
DataMast.Active:=False;
DataMast.CommandText:='Select * from EmpMess where UserName like '''+lbUser.Caption+'''';
DataMast.Open;
end;//就这个简单的查询就出错.. 搞了两天没搞出来
end;

end.

我用的ACCESS数据库,用ADO连的例子上也是这种方式呀,怎么不会出错.郁闷[]

现在大富翁上热心的高手都上哪去了呀呀这个问题都没人回答。难道没人懂intraweb?
如果认为分不够的话，我可以加。

还有这个问题是不是数据库连接的不对呀？期昐高手的出现？

你打开网页时出的错吗？

是执行一个简单的查询出的错
procedure TformMain.IWButton1Click(Sender: TObject);
begin
with Datamodule1 do
begin
DataMast.Active:=False;
DataMast.CommandText:='Select * from EmpMess where UserName like '''+lbUser.Caption+'''';
DataMast.Open;
end;//就这个简单的查询就出错.. 搞了两天没搞出来
end;
没人会吗.很失望哟

还是自己搞定的,看来用intraweb的人没有了