how to save all the filled rows in a datagrid

[saraDotNet]

Hi everybody,I’v a question in a Vb.Net 2003 program,How can save or(insert) all the rows that I fill in a datagrid to be saved in itis datasource(table)at one time ,because my insertion code just save and insert the row where the curser is on it.So,IS there a solution.
With thanks, here is my code,

Imports System.Data.OleDb
Public Class Form7
    Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strcon As String
        Try
            strcon = " provider=microsoft.jet.oledb.4.0;data source=Cars.mdb "
 
            Dim con As New OleDbConnection(strcon)
            con.Open()
 
            Dim adapter As New OleDbDataAdapter("select OrderNo,CarName,Model,Color,Quantity,OrderDate from  CompanyOrders", con)
 
            Dim dset As New DataSet
 
            adapter.Fill(dset, "CompanyOrders")
 
             dset.Clear()
            DataGrid1.DataSource = dset.Tables("CompanyOrders")
 
        Catch exp As Exception
            MsgBox(exp.ToString)
        End Try
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim strcon As String
        Try
            strcon = "provider=microsoft.jet.oledb.4.0;data source=Cars.mdb"
            Dim con As New OleDbConnection(strcon)
            con.Open()
            Dim cmd As New OleDbCommand
            cmd.CommandText = "insert into CompanyOrders(OrderNo,CarName,Model,Color,Quantity,OrderDate) values(" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0) & ",'" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1) & "', " & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2) & " , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) & "' , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4) & "' , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5) & "')"
            cmd.Connection = con
 
 
 
            cmd.ExecuteNonQuery()
            MessageBox.Show("The addition process done successfully")
 
            con.Close()
        Catch exp As Exception
            MsgBox(exp.ToString)
        End Try
    End Sub
 
 
 
 
End Class

[saraDotNet]

Please help me,I donot know how to solve this problem.
O.K is there any different way I can use it ,i need a tool as datagrid has many rows to fill it with data as Company Orders(ord_num,ord_name,ord_qty,ord_date).

[Banfa]

I am no VB expert but from a general programming point of view I would have thought that you need to replace the code line

 cmd.CommandText = "insert into CompanyOrders(OrderNo,CarName,Model,Color,Quantity  ,OrderDate) values(" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 0) & ",'" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 1) & "', " & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 2) & " , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 3) & "' , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 4) & "' , '" & DataGrid1.Item(DataGrid1.CurrentCell.RowNumber, 5) & "')"

with a for loop (VB has for loops right?) which performs an insert for each row in the data grid and instead of DataGrid1.CurrentCell.RowNumber you use your loop control variable.