Operação ole db de várias etapas gerou erros

lá vem eu de novo pessoal, estou com um puta problema aqui... tem uma parte de um projeto aqui que funcionava certinho, quando eu adicionei o campo data_admissao (date) ao "strSQL" aí a merda chegou... vou passar pra vocês o trecho do código...

strSQL = "Select Nome,mensalista,Valor_Hora,num_dependentes,pensao,valor_pensao,sabado as trabalha_sabado,vale_transporte,cesta_basica,seguro,adicional_noturno,sindicato,data_admissao from funcionarios where id_funcionario=" & txtMatricula.Tag

        Set rsPesquisa = New ADODB.Recordset
        Set rsPesquisa = cnERP.Execute(strSQL)
        If rsPesquisa.EOF Then
            MsgBox "Erro ao buscar funcionário."
            'Unload Me
            Exit Sub
        Else

            txtNome_funcionario.Text = rsPesquisa!Nome
            txtMeses.Text = CStr(rsPesquisa!data_admissao)
        End If
    Else
        MsgBox "Erro ao selecionar funcionário."
        Unload Me
    End If