[Resolvido]Navegação em formulario desacoplado em registros por recordset

Olá pessoal, estou testando aqui a navegação em formulario desacoplado, se alguem puder dar uma ajudinha

Private Sub btUltimo_Click()
'Vai para o ultimo registro
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM Clientes"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)

rs.MoveLast
Me.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Estou tendo problemas em ir para o próximo registro ou anterior, como fazer?
O proximo só vai uma vez, teria que pegar o registro atual e pular mais um

Private Sub btProximo_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM Clientes"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)

rs.MoveNext
Me.codCliente = rs!codCliente
Me.nomeCliente = rs!nomeCliente
Me.endCliente = rs!endCliente
Me.Cidade = rs!Cidade
Me.UF = rs!UF

rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
end sub

Trabalhar com formularios desvinculados não é dificil, no entanto é necessária muita atenção quanto ao fechar os Recordset`s.

Veja que aqui só se fecha o Recordset no evento "Ao Fechar" do formulario:

O evento ao carregar do formulario, carrega os Recordset`s, os botões de Navegação só servem mesmo para Navegar e não carregar dados;


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

Perfeito JPaulo, é vdd se eu fechar a conexão não navega, apenas coloquei um tratamento de erro ai valeus.
Obrigado

Private Sub btProximo_Click()
On Error Resume Next
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