Access - Listbox ne Access/VB

[My_Soul]

Nje shoqja ime ka nje problem me Sub e meposhtme. Gjate compilimit i jepet error ne rreshtin me ngjyre blu me poshte. Any idea?



Private Sub armor()
'On Error GoTo errDelete
Dim lst As ListBox
Dim db As DAO.Database
Dim str As String
Set db = CurrentDb
Set lst = List6 ' change List2 to the name of your list box
If lst.ItemsSelected.Count = 0 Then 'make sure an item has been selected
MsgBox "Please select at least one item from the list"

End If
Exit Sub

[edspace]

E provova kodin me lart dhe punonte.

Private Sub Command2_Click()

Dim lst As ListBox
Dim str As String
Set lst = List6

If lst.ItemsSelected.Count = 0 Then
    MsgBox "Please select at least one item from the list"
End If

End Sub

Qe te punoje kodi me lart, duhet te kete nje liste (list box) me emrin List6 ne formular.
Thuaji shoqes te kontrolloje edhe njehere emrat.

Ne ZIP e bashkengjitur kam vendosur nje shembull per kodin me lart.