Gerando faltantes

Com o codigo abaixo preencho um List com todos os dados da tabela (Dados) campo LM_1. Esses dados correspondem a numeração de um certo documento. Preciso gerar em outro list os numeros que faltam no primeiro List partindo do número 1000 ate o ultimo, é possível?

Segue a tabela anexo.

Private Sub CmdLmSaldo_Click()
Frm_SaldoLM.Visible = True
Frm_SaldoLM.Left = 6
Frm_SaldoLM.Top = 84
GoTo Lista

Lista:
AtivarBancoLM
Dim Sql As String
Dim Contador As Integer
LM_1 ORDER BY LM_1"
Sql = "SELECT distinct [LM_1] FROM Dados GROUP BY LM_1 ORDER BY LM_1"
Set Tabela_LM = Banco_LM.Execute(Sql)

If Tabela_LM.RecordCount = 0 Then
ListLMSaldo.Clear

Else
ListLMSaldo.Clear

Dim i, J
i = 0
J = 1

Do Until Tabela_LM.EOF
ListLMSaldo.AddItem Tabela_LM("LM_1")
i = i + 1
Contador = Contador + 1
Tabela_LM.MoveNext
Loop
End If
LB_Nr.Caption = Contador & " " & " " & "-" & " " & "LM's pendentes"
DisconectarSaldo
End Sub