Ciao oregon, in base a quello che mi hai risposto ho fatto solo una piccola modifica, dagli un'occhiata e dimmi se puo' andare bene, non mi da' errori, ti posto l'intero codice:

On Error Resume Next
Set rs = New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT TXT_CODICE FROM ID_ARTICOLI ORDER BY TXT_CODICE;"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly

If Not rs.EOF Then
rs.MoveLast
TXT_ULTIMOCODICE.text = rs!TXT_CODICE
End If

...cosi' facendo lo obbliga a posizionarsi sull'ultimo record
vrclaudio