VB中，怎样将查询到的数据显示在datagrid中，其后全部插入到oracle的表里面

VB中，怎样将查询到的数据显示在datagrid中，然后全部插入到oracle的表里面
我连接oracle的语句
If rt.State = adStateOpen Then rt.Close
On Error Resume Next
  rt.Open "select * from 部门表", cn, 3, 3
  Set DataGrid1.DataSource = rt
但是怎样将查出来的数据添加到 部门表_01里面
所有查询的数据都是显示在datagrid中
哪位大侠能帮忙
------解决方案--------------------
直接给我加分,,马上给你搞定..都是群友!!