如何将Excel中的内容导入到SQL Server数据库中？？？

窗体中有两Button(导入，保存) ，一DBGrid(DataSourse,ADQuery1)，OpenDlg1,SaveDlg1。
1.点击“导入”按钮时，将一Excel表（如：book.xls）中的数据显示到DBGrid中，这一功能已经实现，代码如下：
  if OpenDlg1.Execute then
  begin
    ADOQuery1.Close;
    ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
      +'Data Source='+OpenDlg1.FileName
      +';Extended Properties=Excel 8.0;Persist Security Info=False';
    ADOQuery1.Open;
  end;
2.点击“保存”按钮“时，将DBGrid中显示的数据保存远端服务器中Sql server表T_aa中，这一功能又如何实现呢？
3.