[Resolvido]Erro em tempo de execução "3464" - Tipo de dados incompatível na expressão de critério

Olá Pessoal,

Estou montando um sistema para a minha empresa onde na tela de criação do orçamento criei um botão para gerar uma proposta que é um arquivo word que o access abre levando o nome do cliente responsável. Porém o nome está na tabela tblCliente, uma tabela que não está aberta no momento que crio o orçamento, que no caso é a tabela tblOrcamentoCapa.

A abertura do arquivo word rodou bem, sem maiores problemas inclusive aprendi aqui no forum como fazer porém para eu pegar o nome do reponsável pelo cliente na tabela tblCliente está dando um erro conforme abaixo:

"Erro em tempo de execução "3464" - Tipo de dados incompatível na expressão de critério
Tipo de dados incompátivel na expressão de critério"

A Linha que está dando erro é a linha com * no final.

"Dim ThisDB As Database
Dim ThisRS As Recordset
Dim StrSQL As String
Dim vNomeResponsavel As String

'StrSQL = "SELECT * FROM tblClientes WHERE Código='" & Me.cmbCodigoCliente.Value & "';"
Set ThisDB = CurrentDb
Set ThisRS = ThisDB.OpenRecordset("SELECT * FROM tblClientes WHERE tblClientes.Código = '" & Me.cmbCodigoCliente & "';") *

'carrega nas variáveis os valores dos dados da tblClientes
vNomeResponsavel = ThisRS("NomeResponsavel")

DoCmd.RunSQL (StrSQL)"

form frmVendas (aba Orçamento)

Agradeço a ajuda

Obs: eu li outro tópico com o mesmo título, mas trata-se de campo data, já no meu caso o meu é campo numérico inteiro, tanto para a tabela tblOrcamentoCapa como para a tblCliente.

Tenta assim, Veja se dá erro.
Set ThisRS = ThisDB.OpenRecordset("SELECT * FROM tblClientes WHERE tblClientes.Código = ' & Me.cmbCodigoCliente & '")

Não funcionou porém eu alterei

de
Set ThisRS = ThisDB.OpenRecordset("SELECT * FROM tblClientes WHERE tblClientes.Código = ' & Me.cmbCodigoCliente & ' ")
para
Set ThisRS = ThisDB.OpenRecordset("SELECT * FROM tblClientes WHERE tblClientes.Código = " & Me.cmbCodigoCliente & "")

e funcionou!

Muito obrigado