[Resolvido]navegar em um recordset

Boa tarde!
Encontrei aqui o exemplo de navegar em formulario desvinculado abaixo, do amigo JPaulo:
Private cn As ADODB.Connection
Private rs As ADODB.Recordset


Private Sub Form_Load()
On Error Resume Next
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM Clientes"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Open
End With

Set Me.Recordset = rs

Me.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF
End Sub


Private Sub btProximo_Click()
Me.Recordset.MoveNext
Me.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF
End Sub


Private Sub Form_Close()
rs.Close
cn.Close
Set rs = Nothing
End Sub


a parte do código ao fechar da erro variavel não definida.
rs.Close
cn.Close
Set rs = Nothing

onde estou errando?

Obrigado.

Resolví pessoal, declarei as variaveis na sessão geral, esse era o erro

Obrigado