[Resolvido]Função para Atualizar Caixa de Seleção

Boa noite!

Bd em Access 2010.

O formulário simples "RemessaEntrada" possui uma caixa de combinação "ListaStatus" composta por dois campos: "CODSTATUSREM" e "ccNomStatus", que são buscados da tabela "tbl_StatusRemessa". Seus valores são:

CODSTATUSREM ccNomStatus
1 Em Aberto
2 Devolução Parcial
3 Devolução Parcial e Final
4 Devolução Total

Crie a função abaixo e um botão de comando no formulário para chama-la.
Como pode ser observado na função, fiz vários testes com vários argumentos, mas nenhum funcionou.

Como posso resolver isso?

Desde já agradeço!


Private Sub AtualizarStatus()

If CurrentProject.AllForms("RemessaEntrada").IsLoaded = True Then

If Me.txtSaldoValor = 0 Then
Me.ListaStatus.Column(0) = 4
'Me.ListaStatus.Column(0) = "4"
'Me.ListaStatus = "Devolução Total"
'Me.ListaStatus.Column(1) = "Devolução Total"
'Me.ListaStatus.Column(1) = 4
Me.ListaStatus.Requery


Else

If Me.txtSaldoValor > 0 And Me.txtValorDevolvido = 0 Then
Me.ListaStatus.Column(0) = 1
'Me.ListaStatus.Column(0) = "1"
'Me.ListaStatus = "Em Aberto"
'Me.ListaStatus.Column(1) = "Em Aberto"
'Me.ListaStatus.Column(1) = 1
Me.ListaStatus.Requery


Else

If Me.txtValorDevolvido > 0 And Me.txtSaldoValor > 0 Then
Me.ListaStatus.Column(0) = 2
'Me.ListaStatus.Column(0) = "2"
'Me.ListaStatus = "Devolução Parcial"
'Me.ListaStatus.Column(1) = "Devolução Parcial"
'Me.ListaStatus.Column(1) = 2
Me.ListaStatus.Requery


End If
End If
End If
End If



End Sub

Encontrei o correto:

Me.ListaStatus = 4
Me.ListaStatus = 1
Me.ListaStatus = 2