[Resolvido]Acesso a dados - Filtrado

Private Sub CaixaCombinação6_AfterUpdate()
Dim j, i as byte, seq as string
j = Split(Me!CaixaCombinação6.Column(2), "; ")
For i = 0 To UBound(j)
    seq = seq & "'" & j(i) & "',"
Next
seq = Left(seq, Len(seq) - 1)
DoCmd.OpenForm "funcionario", , , "valência in(" & seq & ")"
End Sub 

Private Sub B_Entrar_Click()
Dim j, i As Byte, seq As String
Dim qry As QueryDef

'captura sequencias de valencias permitidas pelo usuário
j = Split(Me!CaixaCombinação6.Column(2), "; ")
For i = 0 To UBound(j)
    seq = seq & "'" & j(i) & "',"
Next
seq = Left(seq, Len(seq) - 1)

'remonta consulta qryValencias, origem do campo valência no formulário de funcionários.
Set qry = CurrentDb.QueryDefs("qryValencias")
qry.SQL = Mid(qry.SQL, 1, InStr(qry.SQL, "WHERE") + 5) & "valência.valência IN(" & seq & ")"

'abre formulário de funcionários com as valencias do usuario logado
DoCmd.OpenForm "Funcionario", acNormal, , "valência in(" & seq & ")"

'limpa memoria
Set qry = Nothing

End Sub