[Resolvido]Erro em tempo de execução

Tenho um formulário com uma caixa de listagem e um botão com o código abaixo que uso para selecionar os itens de meu interesse mas, ao clicar no item escolhido aparece a seguinte mensagem: "Erro em tempo de execução '94': Uso de 'Null" invalido.

Private Sub Lista1_AfterUpdate()
Me!Lista1 = Proper(Me!Lista1)
End Sub

Private Sub Tst_Click()

Dim sel As Variant
Dim strwhere As String

strwhere = "item in ("
For Each sel In Me.Lista1.ItemsSelected
strwhere = strwhere & "'" & Me.Lista1.ItemData(sel) & "',"
Next
strwhere = strwhere & ")"

DoCmd.OpenReport "PedOrcamento", acViewPreview, , strwhere

End Sub

Me desculpe marcelo por nao ter respondido antes eh que estava pesquisando sobre o problema, sim é uma função que eu havia adaptado de um modelo mais antigo (maestro) do mestre avelino. em um outro bd funciona normalmente.

Veja o condigo com o erro:

https://www.dropbox.com/s/dcwn7ua0ioa7h1k/lictauron.zip?dl=0

Pelo que pude entender voce deseja aplicar a UDF Proper, a todos os registros de seu listbox,porem essa função não está moldada para tal.
Acredido que se utiliza-la na sql que "carrega" a listbox (retirando a chamada do envento after updade) resolva

Código:

SELECT Proper([Item]) AS Prod, Itens.Pedido, Itens.Pedido
FROM Itens
GROUP BY Proper([Item]), Itens.Pedido, Itens.Pedido
HAVING (((Itens.Pedido)=[INFORME O PEDIDO]));


Entao RMarco, o problema era justamente o seguinte, em um outro projeto o codigo continua funcionando perfeitamente e agora gostaria de lhe agradecer pois esta funcionando novamente. Acredito que possa ser inclusive questoes de versao do access.