انتقال اطلاعات یک dataset به یک جدول از دیتابیس

بازم سلام
من میخوام اطلاعات یک dataset رو که به صورت زیر فیلتر کردم در داخل یک table از یک database کپی کنم

کد:

---

Dim oleconn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\mydtbs.mdb;Persist Security Info=True")
        Dim oleDa As New OleDb.OleDbDataAdapter("select * from informations where tavalod<13720201", oleconn)

        Dim oleds As New DataSet
        oleconn.Open()
        oleDa.Fill(oleds, "informations")
        oleconn.Close()
        DataGridView1.DataSource = oleds
        DataGridView1.DataMember = "informations"

---

همون طور که میبینید در اینجا اطلاعات فیلتر شده در یک dataset به نام oleds کپی شدن
حالا میخوام این اطلاعات رو که در حال نمایش در datagrid هستند در یک جدول دیگر از این دیتابیس کپی کنم

سلام
شما هم میتونید اطلاعات از گرید بخونید ذخیره کنید و هم از دیتاست
مثلا می خواهیم اطلاعات code ذخیره کنیم
اگر از گرید بخواهید

کد:

---

strin a=datagridview1.curentrow.cells[0].tostring();
sql="insert (code) values
('"+a+"');

---

................
اگر هم مستقیم از دیتاست می خواهید

کد:

---

dataset dst=new dataset()
strin a=dst.tabels[""].cells[0][0].tostring();
sql="insert (code) values
('"+a+"');

---

---------------------------------------------------------------
ویرایش شد.
لطفا برای کدها از تگ کد استفاده کنید.
ابتدا کدهارو در دات نت بنویسید که error نداشته باشن.
Payman_62