[Resolvido]Formatar CNPJ

Olá Amigos,

Esou com dificuldade em formatar o CNPJ em uma listbox para seleção do cliente. Tenho somente os números em campo texto de uma base MySQL e quando carrego a listbox não está formatando corretamente.
Abaixo o código que estou utilizando:

strRS = "SELECT Codigo,CNPJ,Razao,Estado,Cidade FROM tbl_Parceiro WHERE Razao Like '%" & Me.Razao & "%' AND Status='ATIVO'"
Set rs = Cnn.Execute(strRS)
   
Do While Not rs.EOF
  Forms.reg_PedidoVda_SelecParc.Lista.RowSourceType = "Value List"
  Forms.reg_PedidoVda_SelecParc.Lista.AddItem rs!Codigo & ";" & Format(rs!CNPJ, "00.000.000/0000-00") & ";" & rs!Razao & ";" & rs!Cidade & ";" & rs!UF
  rs.MoveNext
Loop
           
Set rs = Nothing: Close


Infelizmente não consigo mais inserir arquivos para demonstrar o resultado, pois vem uma mensagem do fórum que o espaço total de armazenamento foi ultrapassado, já deletei quase todos os anexos de post anteriores, mas não resolve...

Experimente assim:

Format(rs!CNPJ, "00\.000\.000\/0000\-00")

Caso não funfe, crie uma variável:

minhaVar= Format(rs!CNPJ, "00\.000\.000\/0000\-00")

e  na linha:

Forms.reg_PedidoVda_SelecParc.Lista.AddItem rs!Codigo & ";" & minhavar & ";" & rs!Razao & ";" & rs!Cidade & ";" & rs!UF

Para disponibilizar arquivos no fórum use o dropbox ou mega e então, coloque o link aqui.

[ ]'s

Valeu Noobezinho!
100% resolvido!
Qto aos arquivos eu achei que imagens tinha como anexar no próprio post porque anteriormente era assim, mas valeu pela info.

Que bom que resolveu!

Para informar:
O fórum está com problemas para anexar arquivos, por isso
sugerimos o dropbox ou mega.
Para anexar imagens:
Primeiro clica-se no botão hospedar imagem.
Com isso vai abrir uma janela para o site tinypic para subir a imagem.
Após, copiar o link da imagem que já está com as tags de imagem
e coloque aqui.
Pronto!

Boa sorte !