my problem is how to add new records from database using dataset?


commented: so what happen with showing some effort? -3

If I understand you, you want to add new records (and changes?) in your dataset to the database?

Did you use a DataAdapter to fill the DataSet? IF so you need to specify its UPDATE Commands:

Public Function CreateCommandAndUpdate( _
    ByVal connectionString As String, _
    ByVal queryString As String) As DataSet

    Dim dataSet As DataSet = New DataSet

    Using connection As New OleDbConnection(connectionString)
        Dim adapter As New OleDbDataAdapter()

        adapter.SelectCommand = New OleDbCommand( _
            queryString, connection)

        Dim builder As OleDbCommandBuilder = _
            New OleDbCommandBuilder(adapter)


        ' Code to modify the data in the DataSet here.  

        ' Without the OleDbCommandBuilder this line would fail.
    End Using 
    Return dataSet
End Function