Salvando numero no lugar de nome

boa tarde, tenho uma combox  que tem os nomes de convenio, mas ela salvando números, consertei ela que estava duplicando ,mas continua salvando números.
o problema esta dentro do código abaixo, mas eu não posso deixar de fazer verificação nos campos;

Código:

 Private Sub salvarConsulta_Click()
If IsNull(Me.cboM) Then
    MsgBox "qual é o médico?", vbInformation, "Aviso"
    Me.cboM.SetFocus
    Me.cboM.BackColor = 646464
    DoCmd.CancelEvent
    ''

ElseIf IsNull(Me.cboP) = True Then
    MsgBox "Qual paciente", vbInformation, "Atenção"
    Me.cboP.SetFocus
    Me.cboP.BackColor = 646464
    ''

ElseIf IsNull(Me.Data) = True Then
    MsgBox "Qual seria a data marcada?", vbInformation, "Atenção"
    Me.Data.SetFocus
    Me.Data.BackColor = 646464
    ''
ElseIf IsNull(Me.hora) = True Then
    MsgBox "Qual seria o horário da consulta?", vbInformation, "Atenção"
    Me.hora.SetFocus
    Me.hora.BackColor = 646464
    ''
ElseIf IsNull(Me.TipoDaConsulta) = True Then
    MsgBox "Tipo da consulta?", vbInformation, "Atenção"
    Me.TipoDaConsulta.SetFocus
    Me.TipoDaConsulta.BackColor = 646464

''
ElseIf IsNull(Me.retorno) = True Then
    MsgBox "O campo retorno está vazio", vbInformation, "Atenção"
    Me.retorno.SetFocus
    Me.retorno.BackColor = 646464
    ''
ElseIf IsNull(Me.preço) = True Then
    MsgBox "Seria de graça a consulta?", vbInformation, "Atenção"
    Me.preço.SetFocus
    Me.preço.BackColor = 646464

Else
Call salvarreg
 MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
 Me.cboM.BackColor = vbWhite
 Me.Data.BackColor = vbWhite
 Me.hora.BackColor = vbWhite
 Me.cboP.BackColor = vbWhite
 Me.TipoDaConsulta = vbWhite
 Me.retorno.BackColor = vbWhite
 Me.preço.BackColor = vbWhite
 DoCmd.GoToRecord , , acNewRec

'DoCmd.RunCommand acCmdSaveRecord
End If
End Sub


identifiquei que o que atrapalha a salvar os nomes na cbo é o codigo
Me.preço.BackColor = vbWhite, mas não posso deixar ele de cor verde para chamar atenção ao usuário.

Fico sem entender o porque .

Crysostomo,

O sistema gravou o VALOR DECIMAL da cor branca (16777215)o campo TipoConsulta,

Poste seu bd pra analisarmos.

Abraços

Fala  camarada, boa noite, eu não entendi não , mas fiz uma cambiarra , para o campo ficar em branco antes dele gravar o valor, pois ao gravar o nome do convenio ele já coloca o numero decimal.
Você pode ver no cbo do convênio que depois de clicar para gravar ele joga o numero rápido.
quando voce tirar o código

Código:

Me.TipoDaConsulta = ""

ele vai gravar o número!

Código:

...............
Call salvarreg
   MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
   DoCmd.GoToRecord , , acNewRec
   Me.cboM.BackColor = vbWhite
   Me.Data.BackColor = vbWhite
   Me.Hora.BackColor = vbWhite
   Me.cboP.BackColor = vbWhite
   Me.TipoDaConsulta = vbWhite
   Me.Preço.BackColor = vbWhite
   Me.TipoDaConsulta.BackColor = vbWhite
   Me.TipoDaConsulta = ""
   Me.Refresh
End If

Bom día!

Código:

MsgBox "Consulta Marcada", vbInformation, "ConsulMED"
  DoCmd.GoToRecord , , acNewRec
  Me.cboM.BackColor = vbWhite
  Me.Data.BackColor = vbWhite
  Me.Hora.BackColor = vbWhite
  Me.cboP.BackColor = vbWhite
  Me.TipoDaConsulta = vbWhite  '---> É aqui que o valor 16777215 está sendo gravado.
  Me.Preço.BackColor = vbWhite
  Me.TipoDaConsulta.BackColor = vbWhite
  Me.TipoDaConsulta = ""

Saludos