[Tasos]

Καλησπέρα!

Γιώργο, αρχικά παρατήρησα 2 πράγματα:

1. το στοιχείο "lstCategory" έχει μια στήλη ενώ εσύ του ζητάς τιμή από την ανύπαρκτη δεύτερη στήλη του ( .List(.ListIndex, 1).

.List(.ListIndex, 0) = Πρώτη στήλη του πλαισίου λίστας.
.List(.ListIndex, 1) = Δεύτερη στήλη κοκ.

2. Το στοιχείο "txtname" δεν είναι πλαίσιο κειμένου αλλά πλαίσιο λίστας.

Αφαίρεσε το πλαίσιο λίστας "txtname" και βάλε στη θέση του ένα πλαίσιο κειμένου με το ίδιο όνομα.

Τροποποίησε τον κώδικα του συμβάντος Private Sub lstCategory_Click() όπως φαίνεται παρακάτω:

Private Sub lstCategory_Click()
    Me.NewRecord = False
    Me.txtname.Text = Me.lstCategory.Value
End Sub

Φιλικά

Τάσος