Erro em SQL select _ !campo

Olha eu novamente ai galera, desta vez o problema é o seguinte:

para ter sempre à mão como se fosse uma anotação do projeto que se está trabalhando criei tipo um marcador de página de um livro, lanço numa statusbar o cod e o nome do projeto que está em uso, para ficar assim no topo do MDI:

COD: 13 NOME: JILNEY O MACEDO

porém só está funcionando com o nome, no campo do código tá dando erro:

PrivateSub Cmd_MARCADOR_Click()

Dim cnncomando As New ADODB.Command
Dim rs_Pronaf As New ADODB.Recordset
With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from projetos "
Set rs_Pronaf = .Execute
EndWith
With rs_Pronaf
If TextCOD_PROJETOS.Text = ""Then
Dim vAviso AsInteger
    vAviso = MsgBox("Não foi selecionado nenhum projeto para o Marcador", vbOKOnly + vbCritical, "ATENÇÃO")

Else
    rs_Pronaf.Filter = "cod = " & TextCOD_PROJETOS

    MDIprojetos.StatusBar2.Visible = True
    MDIprojetos.StatusBar2.Panels(1) = "COD: " + !COD
    MDIprojetos.StatusBar2.Panels(2) = "NOME: " + !NOME

EndIf
EndWith

Set cnncomando = Nothing
Set rs_Pronaf = Nothing

EndSub

'Bom o erro está na linha:

MDIprojetos.StatusBar2.Panels(1) = "COD: " + !COD

não aparece o codigo na statusbar

Run time error '13' tipy mismatch, quando retiro e deixo só o :

MDIprojetos.StatusBar2.Panels(2) = "NOME: " + !NOME

este tá beleza

se funciona no segundo porque não no primeiro?