Private Sub cboUserName_AfterUpdate() mod_Korisnik.OperID = Me.cboUserName.Column(0) mod_Korisnik.ImeO = Me.cboUserName.Column(2) mod_Korisnik.PrezO = Me.cboUserName.Column(3) mod_Korisnik.PravaO = Me.cboUserName.Column(4) Me.txtPassword.SetFocus End Sub