Visual Basic - Secuencia

como puedo generar una secuencia desde vb. la secuencia que tengo se detiene cada cierto tiempo no se porque la hago asi.

Sub INCREMENTA()

Dim db As Database, rs As Recordset
Set db = OpenDatabase("N:\TRANSITO.mdb")
Set rs = db.OpenRecordset("solicitud_ruta", dbOpenTable)
Dim A As Integer
With rs

If (.BOF And .EOF) Then
TXTSEQ.Text = 1
Else
.MoveLast
TXTSEQ.Text = rs!SECUENCIA + 1
End If
End With

End Sub
si alguin tiene otra forma que me la pueda decir

Private Sub Incrementa()

Dim db As Database, rs As Recordset

Set db = OpenDatabase("N:\TRANSITO.mdb")
Set rs = db.OpenRecordset("SELECT Max(Secuencia) FROM solicitud_ruta)

Dim var1 as variant

var1 = rs.Fields(0).Value

If IsNull(var1) then
var1 = 1
Else
var1 = var1 + 1
End If

End Sub

Realmente no sé si es esto lo que buscas, pero ahí queda eso.