Dim con As New OleDb.OleDbConnection
    Dim da As OleDb.OleDbDataAdapter
    Dim bs As BindingSource
 
    Private Sub dgvLaden()
        Dim CommandText As String = "select * from T_Rechnungen"
        da = New OleDb.OleDbDataAdapter(CommandText, con)
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Try
            da.Fill(tab)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        bs = New BindingSource(tab, Nothing)
        DataGridView1.DataSource = bs
    End Sub
 
    Private Sub DBupdate()
        bs.EndEdit()
        Try
            da.Update(tab)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist