Delphi6+ACCESS2000数据库中数据丢失(200)

各位大侠： 小弟遇到一个问题，望各位大侠帮忙解决，小弟不胜感激。 小弟用Delphi6+Access2000开发了一个小型的管理系统，现在在客户那里使用有半年多了，最近经常反映系统有问题，小弟让客户把数据库文件发了过来，查看后发现有两次是数据库中的数据丢失了。一次一个表丢失了2条数据，另一次一个表中的所有数据都不见了，管理系统再对这个表执行insert 操作，报如下错误Access violation at address 1B008A00 in module 'msjet40.dll', Read of address 00000000.下面是我的数据库操作语句DbName := ExtractFileDir(Application.ExeName) + '/Test.dat';ADOExec.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DBName+';Persist Security Info=False;Jet OLEDBatabase Password="rfcmm";'; //保存用户基本信息 SQL.Text := 'insert into TB_CONSUMER valuesid,:name,:sex,:metertype,' + ':cardtype,:areatype,hone,:number,:address,rder,:status,' + ':datetime,pername,:memo)'; Parameters.ParamByName('id').Value := StrToInt(Trim(edtUserID.Text)); Parameters.ParamByName('name').Value := Trim(edtUserName.Text); Parameters.ParamByName('sex').Value := Trim(cbSex.Text); Parameters.ParamByName('metertype').Value := Trim(cbMeterType.Text); Parameters.ParamByName('cardtype').Value := Trim(cbCardType.Text); Parameters.ParamByName('areatype').Value := Trim(cbAreaType.Text); Parameters.ParamByName('phone').Value := Trim(edtPhone.Text); Parameters.ParamByName('number').Value := Trim(edtNumber.Text); Parameters.ParamByName('address').Value := Trim(edtAddress.Text); Parameters.ParamByName('order').Value := 1; Parameters.ParamByName('status').Value := 0; Parameters.ParamByName('datetime').Value := FormatDateTime('yyyy-mm-dd', now); Parameters.ParamByName('opername').Value := CurrOper.OperName; Parameters.ParamByName('memo').Value := Trim(edtMemo.Text); ExecSQL;请各位大哥大姐帮忙啊，小弟新手，请多多指教。

估计是数据库文件坏了,修复一下

接受答案了.