[Resolvido]Gravar o mesmo produto, porém com cores diferentes

Boa noite!

Bd em Access 2010.

Gostaria de adaptar o código abaixo para que o sistema permita gravar o mesmo produto, porém com cores diferentes.

A tabela zzz_tbl_OrcamentosItens possui os dois campos distintos: um campo para o produto e outro para a cor.

Desde já agradeço!

If DadosCabeçalhoOk() Then
Set dbs = CurrentDb
strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
strSQL = strSQL & " AND NUMEROORCAMENTO = " & "'" & txtNUMEROORCAMENTO & "'"
Set rst = dbs.OpenRecordset(strSQL)

If rst.RecordCount > 0 Then
Beep
MsgBox "Atenção! Este produto já está lançado!", vbCritical, "Erro"
LimpaCampos
txtVarPro.SetFocus
BotaoGrava.enabled = False
Exit Sub
End If

Bom dia,
strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
strSQL = strSQL & " AND NUMEROORCAMENTO ='" & txtNUMEROORCAMENTO & "' and CodCor=" & TxtCodCor

Se NumeroOrcamento é número devia ter o campo como número na tabela, em vez de texto

Bom dia Alexandre!

Testei sua sugestão mas ela não funcionou. Apresentou erro de variável não definida (CodCor). Também testei com o nome Cor e apresentou o mesmo erro, dentre outros diversos testes.
Porém me orientou a fazer um novo teste que veio a funcionar. Não sei se é a maneira mais correta, mas funcionou.
Com esses ajustes, agora o sistema permite gravar o mesmo produto com cores diferentes e não permite inserir o mesmo produto com a mesma cor.
Quanto a sua observação sobre o campo NumeroOrcamento, realmente ele é do tipo texto.


Segue como ficou:

strSQL = "SELECT * FROM zzz_tbl_OrcamentosItens WHERE CODPRO = " & txtCodigo
strSQL = strSQL & " AND NUMEROORCAMENTO = " & "'" & txtNUMEROORCAMENTO & "'"
strSQL = strSQL & " AND COR = " & "'" & txtCor & "'"

No mais, muito obrigado pela orientação!

Abraço