各位帮我看一下，一个类封装问题！！急 (50分)

我准备写一个封装ADO操作的类。可是老是出错，请大家看一看下面的代码。为什么老是出错呀

unit Eado;

interface
uses
Windows, Messages, SysUtils,ADODB_TLB, ComObj,Forms;
type
TEAdo=class
private
objConn:OleVariant;
RecordSet:OleVariant;
spath:String;
rec:string;
function opendb:Boolean;
procedure closedb;
public
constructor Create;
//destructor Destroy;
function AddRecord(StrSQL:String):Boolean;
function DelRecord(nIndex:integer):Boolean;

end;

implementation

constructor TEAdo.Create;
begin
objConn:=CreateOleObject('ADODB.Connection');
RecordSet:=CreateOleObject('ADODB.Recordset');
end;

{* 对数据库进行初始化并打开数据库 *}
Function TEAdo.opendb:Boolean;
begin
try
spath:=extractfilepath(application.ExeName )+'data/clientdb.mdb';
objConn.open('driver={Microsoft Access Driver (*.mdb)};dbq='+spath);
result:=true;
finally
result:=false;
end;
end;

{* 关闭数据库连接 *}
Procedure TEAdo.closedb;
begin
objConn.close;
end;

function TEAdo.AddRecord(StrSQL:String):Boolean;
begin
opendb;
try
RecordSet.Open(StrSQL,objConn,3,3)
//<<<=====这个位置出错了，说没有打开命令什么的？
RecordSet.AddNew;
RecordSet.Fields[1].Value:='55555555555';
RecordSet.Update();
RecordSet.Close;
result:=true;
finally
result:=false;
end;
end;

function TEAdo.DelRecord(nIndex:integer):Boolean;
begin
opendb;
result:=true;
end;
end.

调用的地方如下
unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Eado, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyAdo:TEAdo;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MyAdo:=TEAdo.Create;
end;

procedure TForm1.FormClose(Sender: TObject
var Action: TCloseAction);
begin
myado.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not myado.AddRecord('') then
ShowMessage('error');
end;

end.

我结决了。哈哈。各位不用回答了，谢谢你们的关注。



代码中国站长
http://www.codechina.net

解决也说说教训吗

写这儿吧
try
//...你要执行的语句
except
on E:Exception do
begin
ShowMessage(E.Message)
//错了
end;
end;
//Exception 可以捕获所有的错误异常，若你要指定捕获的错误，
例如 5/0 可以捕获 EDivByZero ，若不知道异常是什么，可以故意引起一次，然后
ShowMessage(Exception.ClassName);

网站不错，我会长去

jabing说的对，解决了也应该说一说，
问题出现在这儿了
procedure TForm1.Button1Click(Sender: TObject);
begin
if not myado.AddRecord('') then //<<=====这里没有传SQL语句过去。呵呵。
ShowMessage('error');
end;