[Resolvido]Mensagens erro

como faço para exibir mensagem de erro caso usuário click em ok sem ter selecionado um item na listbox?

Tente algo assim:

Código:

If Me.NomeDaListbox.ListIndex = -1 Then
    MsgBox "Selecione um item na lista", vbCritical, "Erro"
Else
    Blablablá Patati Patatá
End If

Valeu Criquio,funfou em parte

If Me.Lista0.ListIndex = -1 Then
MsgBox "Selecione um item na lista", vbCritical, "Erro"
Else
Me.Undo
Cancel = True
End If
Str_3 = Me.Lista0.Column(0)Aqui depura mensagem do access uso de null invalido
Str_1 = Me.Lista0.Column(1)
Str_2 = Me.Lista0.Column(2)
DoCmd.Close

No evento click tenho este código
If Me.Lista0.ListIndex = -1 Then
MsgBox "Selecione um item na lista", vbCritical, "Erro"
Else
Me.Undo
Cancel = True
End If
como impedir aqui que execute o comando abaixo,nem não tiver selecionado na listbox
se for selecionado item execute o código abaixo

Str_3 = Me.Lista0.Column(0)
Str_1 = Me.Lista0.Column(1)
Str_2 = Me.Lista0.Column(2)
DoCmd.Close

Então ?

Exit Sub, para a instrução morrer logo aqui, se não tiver item selecionado
Else, para continuar a executar


If Me.Lista0.ListIndex = -1 Then
MsgBox "Selecione um item na lista", vbCritical, "Erro"
Exit Sub
Else
Str_3 = Me.Lista0.Column(0)
Str_1 = Me.Lista0.Column(1)
Str_2 = Me.Lista0.Column(2)
End If

É isso ai Mestre funfou!
Valeu Abraços

Valew.