Enumerar Linhas em SQL

Tenho essa consulta:

Private Sub VeicCad()
ServerIp = DLookup("[Path_0]", "tblCaminhoBe")
Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rst As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(ServerIp, False, False, "MS Access;PWD=senha")
strSQL = "SELECT Veiculo.Veiculo, Veiculo.Placa, Veiculo.Cor, Veiculo.ANOV FROM Veiculo Where Veiculo.CodClie = '" & Me.CODCLIE & "'"
Me.ListaV.RowSource = strSQL
Me.ListaV.ColumnCount = 4
Me.ListaV.ColumnWidths = "4cm; 3cm; 3cm; 3cm"
End Sub

mas gostaria de enumerar a quantidade de itens na consulta

exemplo

veiculo enumerar
ford ka 1
verona 2
corsa 3
fusca 4
e assim por diante

Boa noite,
Penso existir forma mais correcta mas, de momento, não me lembro

Crie uma variável global
Public Cont as integer

crie função que a incrementa a cada chamada
Function GeraCont()
Cont=Cont+1
end function

limpe-a antes de chamar a consulta e chame função que a incrementa
cont=0
strSQL = "SELECT Veiculo.Veiculo, Veiculo.Placa, Veiculo.Cor, Veiculo.ANOV, GeraCont FROM Veiculo Where Veiculo.CodClie = '" & Me.CODCLIE & "'"