Conforme enquete a maioria votou que gostaria de saber como pegar o ultimo registro de um recordset, e sem mais de longas coloco o código abaixo para o deleite de todos.
O código é simples, mas eu sinceramente queria que fosse um comando de apenas uma linha! Rsrs…

Para não colocar o código solto, irei definir um exemplo com uma conexão de banco de dados. No meio do código eu demonstro como pegar o ultimo registro!

 

1 – Referencias

Ultimo Registro de um Recordset

 

 

2 – Código Do Ultimo registro de um Recordset

 

Sub Exemplo()

'-------------------------------------------------------Codigo de Introducao ------------------------------------------------
'Variaveis usadas
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim endLocal As String
Dim i As Integer

'variavel com endereco do banco
endLocal = ThisWorkbook.Path

'cria nova conexão definindo local do banco
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & endLocal & "/bd_manchester.mdb"
cn.Open

'define um novo objeto recordset
Set rs = New ADODB.Recordset

'-------define sql-----
sql = "SELECT * FROM TB_atendimento_paciente"

'------------------------------------------Codigo Ultimo Registro de um Record Set --------------------

rs.CursorType = adOpenKeyset
rs.Open sql, cn
rs.MoveLast
ultimoRegistro = rs.AbsolutePosition '.....Aqui eu gravei o ultimo registro da tabela
rs.MoveFirst '..............................................Aqui eu volto para o primeiro registro
'---------------------------------------------------

i = 8

If Not rs.EOF Then
Do While Not rs.EOF
DoEvents
Application.StatusBar = "Inserindo linha " & rs.AbsolutePosition & " de " & ultimoRegistro
Range("A" & i).Value = rs(0)
rs.MoveNext
i = i + 1
Loop
End If

cn.Close

End sub

 

3 – Video

 .