[Resolvido] registro anterior e proximo

novamente peço vossa ajuda

Está me retornando a mensagem Compile error: invalid or unqualified referense na Private Sub Mostrar , mas já conferi todas as linhas e nada está errado.

Se alguem puder indicar oque pode estar errado, agradeço.

Private Sub ProximoRegistro()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
With cnnComando
.ActiveConnection = cnnkasInf
.CommandType = adCmdText

 .CommandText = "Select * From Clientes"
 Set rsSelecao = .Execute
 rsSelecao.MoveNext
 If rsSelecao.EOF = True Then
 rsSelecao.MovePrevious
 End If
	End With

Mostrar
End Sub

Private Sub RegistroAnterior()
Dim cnnComando As New ADODB.Command
Dim rsSelecao As New ADODB.Recordset
With cnnComando
.ActiveConnection = cnnkasInf
.CommandType = adCmdText

 .CommandText = "Select * From Clientes"
 Set rsSelecao = .Execute
 If rsSelecao.BOF = True Then
 rsSelecao.MoveNext
 End If
	End With

Mostrar
End Sub

Private Sub Mostrar()
TxtCodCliente.Text = !Codigo_Cliente
TxtNomeCliente.Text = !Nome_Cliente
TxtTel.Text = !Telefone
TxtCidade.Text = !Cidade
TxtDataInicioServico.Text = !Data_Inicio_Servico
TxtHoraInicioServico.Text = !Hora_Inicio_Servico
TxtProduto.Text = !Produto
TxtMotivo.Text = !Motivo
TxtObs.Text = !Obs
End Sub
Fico no aguardo

Abraços