пробовал с помощью конструктора, потом добавлял это для сохранения:
ULTableAdapter.Update(Me.BasaDataSet)
ULTableAdapter.Update(BasaDataSet)
ULTableAdapter.Update(DirectCast(DataGridView1.DataSource, basaDataSet))
эти три не работают.
эсть и такой варинат, тока как теперь данные из DataGridView1 опять в базу поместить и сохранить?
Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Termofol\Заказ материала\basa.mdb")
            conn.Open()
            Dim cmd As New OleDbCommand("SELECT * FROM UL", conn)
            Dim DR As OleDbDataReader = cmd.ExecuteReader()
            DataGridView1.DataSource = cmd.ExecuteReader
            Do While DR.Read()
                If DataGridView1.Columns.Count <= 0 Then
                    'добавляем колонки
                    For i As Integer = 1 To DR.FieldCount
                        Dim c As New DataGridViewTextBoxColumn()
                        c.HeaderText = "Колонка " & i.ToString()
                        DataGridView1.Columns.Add(c)
                    Next
                End If
                Dim r As New DataGridViewRow()
                For i As Integer = 0 To DR.FieldCount - 1
                    Dim cel As New DataGridViewTextBoxCell()
                    cel.Value = DR(i)
                    r.Cells.Add(cel)
                Next
                DataGridView1.Rows.Add(r)
                Application.DoEvents() 'чтоб не зависнуть
            Loop
        End Using
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Termofol\Заказ материала\basa.mdb")
            'Сохранить
            Dim SelectText1
            Dim adapter
            SelectText1 = "SELECT * FROM UL"
            adapter = New OleDbDataAdapter(SelectText1, conn)
            Dim ds As New DataSet()
            adapter.Fill(ds)
            conn.Open()
            adapter.Update(ds)
            conn.Close()
        End Using
Williams писал(а):Обычно это так:
DataAdapter.Update(DataSet)