Private Sub txtKomada_AfterUpdate()
System.KOMADA = Me.txtKomada
End Sub