Public Class Form3
    Inherits System.Windows.Forms.Form
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Cn As OleDb.OleDbConnection = _
           New OleDb.OleDbConnection _
           ("Provider=Microsoft.Jet.OLEDB.4.0; " & _
           "Data Source=C:\testprog\dbtest\dbtest.mdb")
 
        Dim ordersTabAdapt As OleDbDataAdapter
        Dim timesTabAdapt As OleDbDataAdapter
        Dim orders_0TabAdapt As OleDbDataAdapter
        Dim tmpTabAdapt As OleDbDataAdapter
 
        .....
 
 
        Dim SqlCmd As String
        SqlCmd = " Update (Select orders.duration, HilfTab.duration from" & _
          "orders, HilfTab " & _
                 "where (orders.ordernumber = HilfTab.ordernumber) and " & _
                 "(orders.machine = HilfTab.machine)) " & _
                 "Set orders.duration = HilfTab.duration"
 
        Dim UpdateCmd As OleDbCommand = New OleDbCommand(SqlCmd, Cn)
 
        UpdateCmd.ExecuteNonQuery()
 
        ordersTabAdapt.Update(myDataSet, "orders")
        Me.DataGrid1.SetDataBinding(myDataSet, "orders")
 
    End Sub