如何将Excel数据导入Access数据库? 给一段代码

如何将Excel数据导入Access数据库?,
表名:crk

---

不顶不行

---

excel可以直接作为数据库操作
使用ADO然后搞进去

---

procedure TExInput.Excel1Click(Sender: TObject); //实现Excel导入SQL
var
  sTableName, ErrInfo: string;
var
TableName,CBMonth ,sqlStr:String;
begin
TableName :='BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text;
  sqlStr:='create table BCTZ'+ComboBoxYear.Text+ComboBoxMonth.Text+'( BmNo char(20),RsNo char(20),TzRq char(20), BcNo char(20), Name char(20), BmMc char(20))';
ADOQuery1.sql.clear;
ADOQuery1.sql.add(sqlStr);
ADOQuery1.execsql;
  try
    ADOConn.Connected := False;
    ADOConn.ConnectionString := Format(context, [Trim(edtPasswd.Text), Trim(edtUser.Text), Trim(edtServerName.Text), Trim(edtServerIP.Text)]);
    ADOConn.Connected := True;
  except
    Application.MessageBox('数据库连接出错！  ', '提示信息', MB_OK or MB_ICONERROR);
    Abort;
  end;

  OpenDialog1.DefaultExt := 'xls';
  OpenDialog1.Filter := 'Excel File|*.xls';
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
  if OpenDialog1.Execute then
  begin
    ADOCommand1.ConnectionString := Format(SExcelText, [