[Resolvido]varias colunas da combo box

boa tarde pessoal tenho um botão de um formulário que guarda a informação de uma combo box, porem só guarda numa tabela o valor data que é o valor da column (0). Noutro tópico anterior o senhor Eduardo ensinou-me como guardar um valor de uma coluna com o formato data, porem, gostava imenso para alem de guardar a data guardar também o valor da column (2) que tem o formato texto.
A minha questão é como guarda o valor da column (0) tipo data e column (2) tipo texto?
segue-se o código:

Private Sub yuy_Click()
Dim strReg As Date
Dim x As Integer

If IsNull(consulta_saida) Then
MsgBox "Selecione uma data!"
Else
strReg = Me.consulta_saida.Column(0)
End If

If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
Else
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#"
DoCmd.GoToRecord , , acNewRec
Me.consulta_saida.Requery
End If
End If


End Sub

Boa noite,
Para tipo data #" & strReg & "# como indicou (com cardinal)
Para tipo data '" & strReg & "' tipo texto (com pelica)
Para tipo data " & strReg & " 'tipo número (sem nada)

Bom dia

Certo, entendi a diferença muito obrigado, porem queria não só guarda a column (0), mas também a column (2), ou seja guardar numa tabela o registo da combobox de duas columns a (0) e a (2).
Será que se eu fizer:

If IsNull(consulta_saida) Then
MsgBox "Selecione uma data!"
Else
strReg = Me.consulta_saida.Column(0).column(2)
End If

Boa noite,
Será
strReg = Me.consulta_saida.Column(0) & Me.consulta_saida.Column(2)

Bom dia Sr. Alexandre

Já tentei também essa opção mas não é.
Não é porque depois faço isto:
CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#"
faço um update na tabela registos actualizando o campo saída para verdadeiro, ou seja, quando a data que é seleccionada pela combo é igual a #" & strReg & "#" ( que consequentemente é a minha primeira column da minha combo box. Gostava então que guardasse não só a data, mas também o valor da colum (2) que é um campo nome. Contudo ainda assim muito obrigado.

exemplo:

strReg = Me.consulta_saida.Column(0)+column(2)
End If

If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
Else
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "update registos set saida = -1 where data = #" & strReg & "#" <-- aqui depois fica a duvida
DoCmd.GoToRecord , , acNewRec
Me.consulta_saida.Requery

Bom dia,
Vamos por partes
Deve alterar campo data para outro nome (dtData, p.ex)
1 - quer guardar que valores em que campos?
2- se o campo data é comparado apenas pela primeira coluna, coloque
CurrentDb.Execute "update registos set saida = -1 where data = #" & Me.consulta_saida.Column(0) & "#"

Bom dia Sr. Alexandre a questão é queria guardar num campo o valor da coluna 1 e 2 da minha combo box. Queria guardar a concatenação. Devo alterar para que formato?

Boa noite,
Concatenar data e texto deve ficar em texto

:/ pois...
volto a perguntar
Devo alterar para que formato?
como faço?

Boa tarde,
Conforme eu disse na última mensagem, deve ficar em texto
Tenha campo texto para armazenar o valor, se a informação é concatenada. Se só trabalha a concatenação no formulário para consulta, mantenha os campos separados com cada tipo já existente
Só a necessidade pode justificar a solução escolhida

Bom dia

Certo.
Sr. Alexandre muito obrigado pela ajuda.