请教:如下代码在WIN98下运行正常,在WIN2K下不行,而且什么提示都没有,何故?
procedure DBConnect();
{
功能: 连接到数据库
}
var
s : string;
begin
g_CurDir := ExtractFilePath(Application.ExeName);
// 创建数据模块
MainDB := TMainDB.Create(Application);
// 连接数据库
if not mainDB.adoCn.Connected then
begin
s := g_CurDir+'DB\'+'xxx.mdb';
s := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+ s;
mainDb.adoCn.ConnectionString := s;
maindb.adoCn.Connected := true;
maindb.adsTb.CommandText := 'select * from Client';
maindb.adsTb.Connection := maindb.adoCn;
maindb.adsTb.Active := true;
end;
end;