表table1   (ID,year,month,RecordDate,MoneyNum,Notebook,RecordType)  
  类型分为为数字，数字，数字，日期，货币，文本，文本。  
   
  代码如下：  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      strSQL   :string;  
  begin  
      strSQL   :=   'Insert   into   table1   (ID,year,month,RecordDate,MoneyNum,Notebook,RecordType)';  
      strSQL   :=   Format('%s   values('   +  
                                    '%d,'   +  
                                    '%d,'   +  
                                    '%d,'   +  
                                    '''%s'','   +  
                                    '''%f'','   +  
                                    '''%s'','   +  
                                    '''%s'''   +  
                                    ')',  
                                    [strsql,  
                                      1,  
                                      yearof(DateTimePicker1.datetime),  
                                      monthof(DateTimePicker1.datetime),  
                                      formatdatetime('yyyy-mm-dd',DateTimePicker1.datetime),  
                                      strtofloat(edit1.Text),  
                                      trim(edit2.Text),  
                                      trim(edit3.Text)  
                                      ]);  
      ADOConn.Execute(strSQL);  
  end;  
   
  当ADOConn使用odbc数据源micosoft   ole   db   provider   for   odbc   drivers   则运行正确。  
  而使用microsoft   jet   4.0   ole   db   provider   则会报错，不知道是什么原因？？  
  请多指教～za90