vb.net怎么从数据集保存到数据库

Public Function CreateCmdsAndUpdate(ByVal dataSet As DataSet, _
ByVal connectionString As String, ByVal queryString As String) As 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)

        connection.Open()

        Dim customers As DataSet = New DataSet
        adapter.Fill(customers)

        ' Code to modify data in DataSet here 

        adapter.Update(customers)

        Return customers
    End Using
End Function

------解决方案--------------------