COMO POSICIONAR-ME NO BANCO

GILBERTOJW 25/03/2013 09:48:08
#420989

Caros amigos tenho uma rotina onde preciso fazer um update no último registro, mas o update está sendo realizado sempre no penúltimo. Quando eu pego o max(ID) ele sempre pega o ultimo, mas o banco ainda não registrou meu último lançamento.
Como resolver isto ? Banco access

Dim connS As String
connS = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô]
Dim conect As New OleDb.OleDbConnection

conect.ConnectionString = connS
conect.Open()

Dim selcom As New OleDb.OleDbCommand
selcom.CommandText = [Ô]SELECT max(num) FROM [fechamentos];[Ô]
selcom.Connection = conect

Dim dr As OleDb.OleDbDataReader
dr = selcom.ExecuteReader()

While dr.Read()
intUltimoregistro = dr.Item(0)
End While

conect.Close()