lbFabrikat.DataBindings.Add("Text", Bs, "Fabrikat")

 Da.UpdateCommand = New SqlCommand
          ("UPDATE Motor SET Fabrikat = @Fabrikat,  WHERE GeraeteNr =" & _
            "@GeraeteNr", Cn)
 
        Da.UpdateCommand.Parameters.Add("@Fabrikat", SqlDbType.NVarChar, 15,    _
                 "Fabrikat") 
        Dim parameter As SqlParameter = Da.UpdateCommand.Parameters.Add( _
        "@GeraeteNr", SqlDbType.NVarChar)
 
        parameter.SourceColumn = "GeraeteNr"
        parameter.SourceVersion = DataRowVersion.Original
 
        Dim dataSet As DataSet = New DataSet
        Da.Fill(dataSet, "Motor")
 
        Dim row As DataRow = dataSet.Tables("Motor").Rows(0)
        row("Fabrikat") = "New Fabrikat"
 
        Bs.EndEdit()
        Da.Update(Ta)