Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        Dim cmd As New OleDbCommand("update Bestand set std_brst='" & _
        txtStd.Text & "',sti_brst='" & txtSti.Text & "',rbk_brst='" & _
        txtRbk.Text & "',hes_brst='" & txtHes.Text & "',hel_brst='" & _
        txtHel.Text & "',ieg_brst='" & txtIeg.Text & "',efe_brst='" & _
        txtEfe.Text & "',efl_brst='" & txtEfl.Text & "' Where werk =' 20 ' AND" & _
        "datum ='30.11.05'", conZDB)
        cmd.Parameters.Add("@p1", OleDbType.VarChar, 10, "std_brst")
 
        Dim prm As OleDbParameter = cmd.Parameters.Add("Bestand", _
          OleDbType.VarChar)
        prm.SourceColumn = "Werk and datum"
        prm.SourceVersion = DataRowVersion.Original
 
        daBest.UpdateCommand = cmd
        conZDB.Open()
        Try
 
            daBest.Update(dsBest, "Bestand")
            MsgBox("geht")
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
        End Try
        conZDB.Close()