Access - Error con SetFocus en Formulario con ListBox

Public Sub Buscar(NTextBox1 As TextBox, NTextBox2 As TextBox, NListBox As ListBox, NTabla As String, ParamArray NCamposWhere() As Variant)

    On Error GoTo ManipulaError

    Dim NCampo As Variant, NCampo2 As Variant, SQL As String, SQL2 As String

    ' Aquí hago bucle para que pueda filtrar por varios campos según los caracteres que ponga en NTextBox1

    For Each NCampo In NCamposWhere

        SQL = SQL & "[" & NCampo & "] Like '*" & Replace(NTextBox1.Text, "'", "''") & "*' OR "

    Next NCampo

    'Aquí hago bucle para que pueda filtrar por varios campos según los caracteres que ponga en NTextBox2

    For Each NCampo2 In NCamposWhere

        SQL2 = SQL2 & "[" & NCampo & "] Like '*" & Replace(NTextBox2.Text, "'", "''") & "*' OR "

    Next NCampo2

    'Aqui pongo los criterios que hacen que se muestre los datos en el ListBox, por ambos campos a la vez (supongo está bien no lo tengo claro)

    NListBox.RowSource = "SELECT * FROM [" & NTabla & "] WHERE " & Mid(SQL, 1, Len(SQL) - 3)

    NListBox.RowSource = "SELECT * FROM [" & NTabla & "] WHERE " & Mid(SQL2, 1, Len(SQL2) - 3)

    Exit Sub

    'Este es el Set.Focus que no está funcionando, "BUSQUEDA_ISIN" es el nombre del formulario, "ISIN_a_BUSCAR" es el nombre del NTextBox1

    Forms!Busqueda_ISIN!ISIN_a_BUSCAR.SetFocus

ManipulaError:

    MsgBox Err.Description, vbCritical, "Avíso"

End Sub

Private Sub ISIN_a_BUSCAR_AfterUpdate()

    Call Buscar(ISIN_a_BUSCAR, Tipo_de_Registro, NListBox, "Mi_Consulta", "ISIN")

     'recordar: ISIN_a_BUSCAR es NTextBox1 y Tipo_de_Registro es NTextBox2

End Sub