[Resolvido] CheckBox retornando erro

Boa Noite Mestres

Seguinte. Tá me retornando erro 13 "Type Mismach" quando vou buscar registro anterior

Private Sub RegistroAnterior()
If Not rsSelecao.BOF = True Then
rsSelecao.MovePrevious
If Not rsSelecao.BOF = True Then
Mostrar
End If
End If
'Habilita o botao excluir'
Toolbar1.Buttons(3).Enabled = True
End Sub

'me sinalizando nos itens checkBox nesta sub'

Private Sub Mostrar()
TxtNumOS.Text = rsSelecao!Numero_OS
TxtNomeCliente.Text = rsSelecao!Nome
TxtTel.Text = Empty & rsSelecao!Telefone
TxtCidade.Text = rsSelecao!Cidade
TxtDataInicioServico.Text = rsSelecao!Data_Inicio_Servico
TxtHoraInicioServico.Text = rsSelecao!Hora_Inicio_Servico
TxtFuncReq.Text = Empty & rsSelecao!Func_Req
TxtDpto.Text = Empty & rsSelecao!Dpto
TxtProduto.Text = rsSelecao!Produto
TxtModMaq.Text = Empty & rsSelecao!Modelo_Maquina
TxtMatPat.Text = Empty & rsSelecao!Mat_Ou_Pat
[u] ChkCapa.Value = Unchecked & rsSelecao!Capa[/u]
ChkCabo.Value = Unchecked & rsSelecao!Cabo
ChkBob.Value = Unchecked & rsSelecao!Bobina
ChkEmb.Value = Unchecked & rsSelecao!Embalagem
ChkSemAces.Value = Unchecked & rsSelecao!Sem_Aces
TxtMotivo.Text = rsSelecao!Motivo_Chamada
TxtObs.Text = rsSelecao!Obs
End Sub
Assim, incluo beleza, vou na tabela tá lá numa boa, volto pro meu programa tento ir pro registro anterior ai me retorna o erro.

Se puderem dar uma dica. Agradeço.

Nereu