FONTE NFE VB.NET

Citação:

:
Altere as seguinte linhas e tente novamente

cab.versaoDados = [Ô]2.01[Ô]


dados.LoadXml(String.Format([Ô]<consReciNFe versao=[ô]2.01[ô] xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô]><tpAmb>2</tpAmb><nRec>{0}</nRec></consReciNFe>[Ô], NRecibo))

Citação:

:
:
Altere as seguinte linhas e tente novamente

cab.versaoDados = [Ô]2.01[Ô]


dados.LoadXml(String.Format([Ô]<consReciNFe versao=[ô]2.01[ô] xmlns=[ô]http://www.portalfiscal.inf.br/nfe[ô]><tpAmb>2</tpAmb><nRec>{0}</nRec></consReciNFe>[Ô], NRecibo))

FOXMAN, obrigado pela resposta, mas como eu já havia dito antes, esse serviço ainda não está na versão 2.01. Segue o xml de retorno:
<retConsReciNFe versao=[Ô]2.00[Ô] xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
<tpAmb>2</tpAmb>
<verAplic>13_0_34</verAplic>
<nRec>310000022990093</nRec>
<cStat>238</cStat>
<xMotivo>Rejeicao: Cabecalho - Versao do arquivo XML superior a Versao vigente</xMotivo>
<cUF>31</cUF>
</retConsReciNFe>

Citação:

:
Eu estou utilizando o ambiente de homologação. Essa versão dos Schemas é para produção.

Citação:

:
Você está confundindo o serviço que estou buscando. Estou usando a Consulta do Recibo e não a Consulta de NFE.

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim WebS As New C_WebService(UrlAcesso)
        Dim StrRetorno As RetEnvio

        [ô]ENVIA LOTE DE NOTAS VERSÃO 2.00
        StrRetorno = WebS.EnviaLote2(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
        MsgBox(StrRetorno.xMotivo)

        Dim RetonoConsulta As New RetRetorno
        RetonoConsulta = WebS.ConsultaRecLote2(StrRetorno.nRec)

        For Each RetC In RetonoConsulta.L_Retornos

            If RetC.xMotivo = [Ô]Autorizado o uso da NF-e[Ô] Then
                Dim XmlNota As XmlDocument = New XmlDocument
                XmlNota.Load(My.Application.Info.DirectoryPath & [Ô]\NFE\[Ô] & CAMINHONFEGERADA.Text)
                GerarNotaProcessada(SepararNota(XmlNota.OuterXml), RetC.XmlRecibo, CAMINHONFEGERADA.Text.Replace([Ô].Xml[Ô], [Ô][Ô]), Date.Today)
            End If

            MsgBox(RetC.Id)
            MsgBox(RetC.chNFe)
            MsgBox(RetC.cStat)
            MsgBox(RetC.tpAmb)
            MsgBox(RetC.xMotivo)
            MsgBox(RetC.digVal)
            PROTOCOLO.Text = RetC.nProt
        Next
    End Sub