Try
            Me.Validate()
            Me.SnTBindingSource.EndEdit()
            Me.SnTTableAdapter.Update(Me.DataSet4.SnT)
        Catch ex As OleDb.OleDbException
            MsgBox("Es dürfen nur Werte zwischen 1 und 10 eingegeben werden!", _
              MsgBoxStyle.Critical, "Fehler")
        End Try