以下代码单独调试均正常，合到项目就ADO36.DLL出错！但是项目读取同一个Access里的表很正常-用Table打开或Query查询，就是不能插入！另一个功能模块用的同一个Data Module通过DataSource+DBGrid就可以插入、编辑。

//记录报警信息
function TDataModulePublic.LogAlarm(sWDMC:string;sAlarmInfo:string):Boolean;
begin

if AccessQuery.Active then AccessQuery.Active := False;
AccessQuery.SQL.Clear;
AccessQuery.SQL.Text := 'insert into 报警信息(网点名称,日期时间,信息内容) values('''+
sWDMC + ''',''' +
DateTimeToStr(Now) + ''',''' +
sAlarmInfo + ''')';
try
AccessQuery.ExecuteSQL;//执行此句错误
Result := True;
except
Result := False;
end;

{
with PubDBCon do begin
if not AlarmLogs.Active then PubDBCon.AlarmLogs.Active := True;//执行此句错误
with AlarmLogs do begin
Append;
FieldByName('网点名称').Value := sWDMC;
FieldByName('日期时间').Value := Now;
FieldByName('信息内容').Value := sAlarmInfo;
try
Post;
Result := True;
except
Result := False;
end;
end;
AlarmLogs.Active := False;
end;
}
end;