高手们快帮我看一看下面的代码为什么出错呀？？急！1(100分)

我自己写了一个小的单元测试。想要实现ADO操作的简单封装。便于我其它窗口的调用。
可是包含到其它窗口单元中后，一调用就出错。说mycomm.CommandText :='select * from commandlist';
不能赋值。帮帮忙呀，高手们！

unit GlobalAdo;

interface
uses
Windows, SysUtils, Classes, OleCtrls, Dialogs,ADODB,forms;

type
TadoDB = class
TxtMsg:String;
Procedure getValue(tmsg:String);
end;
var
MyConn:TADOConnection;
MyComm:TADOCommand;
Mydats:TADODataSet;

implementation

Procedure TadoDB.getValue(tmsg:String);
var
spath:string;
begin
MyConn:=TADOConnection.Create(application);
spath:=extractfilepath(application.ExeName )+'data/clientdb.mdb';
MyConn.Connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+spath;
myconn.loginprompt:=false;
myconn.Connected :=true;
mycomm.CommandText :='select * from commandlist';
mycomm.Execute;


end;


end.

没有看到你生成myComm的代码呀？

var
myDataSet: TADODataSet;

Procedure TadoDB.getValue(tmsg:String);
var
spath:string;
begin
MyConn:=TADOConnection.Create(application);
spath:=extractfilepath(application.ExeName )+'data/clientdb.mdb';
MyConn.Connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+spath;
myconn.loginprompt:=false;
myconn.Connected :=true;

myDataSet := TADODataSet.Create(Application);
myDataSet.Connection := myconn; //
mycomm.CommandText :='select * from commandlist';
mycomm.Execute;
end;

Procedure TadoDB.getValue(tmsg:String);
var
spath:string
begin
MyConn:=TADOConnection.Create(application);
spath:=extractfilepath(application.ExeName )+'data/clientdb.mdb';
MyConn.Connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source='+spath;
myconn.loginprompt:=false;
myconn.Connected :=true;

mycomm := TADOCommand.Create(MyConn);
mycomm.Connection := MyConn;
mycomm.CommandText :='select * from commandlist';
mycomm.Execute;
end;

不过我觉得这样封装,意义不大.

我只是想将操作层与表现层分开。第一次用delphi写操作数据库的程序希望大家帮帮我。
谁用ado写过对数据库增删改查的程序。要求是数据库操作部分进行了封装。其它窗体
简单就可以了。帮帮忙呀。一定给大分！！

如何将在另一个页面上调用数据库查出来的记录集呀？？？