****ActiveForm与数据库相连的问题（曙光已现）**** (200分)

>>碧血剑
这正是我期盼的，能否多指教几句，只要你能教，分好说。

就几行程序，上面的应该说的很清楚了
简单贴一段我的程序吧,
procedure TKHJFActiveForm.Set_ConnectionStr(const Value: WideString);
begin
ConnectionStr := Value;
ConnectDB(Value);
end;

procedure TKHJFActiveForm.ConnectDB(S: string);
begin
KHDataModule := TKHDataModule.Create(self);
with KHDataModule.ADOConnection do
begin
Close;
ConnectionString := S;

end;
end;

多人接受答案了。