Uma outra alternativa é usar a clausula IN
coloque o codigo abaixo no evento pesquisar
mSQL = RetornaConjunto
If mSQL = "()" Then
mSQL = ""
MsgBox "É Necessário Selecionar Um Cliente.", vbInformation, ROTULO
lstRelacao.SetFocus
Exit Sub
End If
mSQL = "Select * From Funcionario Where Nome In " & mSQL & " Order By Nome"
Set TabelaTemp = dbCadastro.OpenRecordset(mSQL, dbOpenSnapshot)
depois coloque essa funçao
Private Function RetornaConjunto() As String
Dim mString As String
Dim i As Long
For I = 0 To lstRelacao.ListCount - 1
lstRelacao.ListIndex = I
If lstRelacao.Selected(i) Then
mString = mString & "'" & lstRelacao.Text & "'" & ","
End If
Next
If Len(mString) <> 0 Then mString = Mid(mString, 1, Len(mString) - 1)
RetornaConjunto = "(" & mString & ")"
End Function
Roberto
