pergunta os numeros são separados ou a sequencia está em apenas um campo?

 

esta função funciona mas o campo tem que ser numerico para ficar ordenado de forma crescente

 

Function FindBlank()
   Dim mx As Integer
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim rsVal As String

Set cn = New ADODB.Connection

  With cn
     ' especifica o provedor Jet
    .Provider = "Microsoft.Jet.OLEDB.4.0"
     ' Leitura/gravaçao
    .Mode = adModeReadWrite
    .CursorLocation = adUseClient
    .ConnectionString = "data source=c:     empd1.mdb ;Jet OLEDB:Database Password= " & Senha
    .Open
  End With

Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
rs.Open "Select * from tabela1 order by tabela1.idtxt"

   rs.MoveMin

   mx = 1

   ' Loop to make sure you have the maximum number.
   Do While Not rs.EOF
      rsVal = rs.Fields("IDtxt").Value
      If rsVal > mx Then
         Exit Do
      End If
      rs.MoveNext
      mx = mx + 1
   Loop

   FindBlank = mx

   rs.Close
   cn.Close

   Set rs = Nothing
   Set db = Nothing

End Function

Com este codigo independe da ordem da sequencia

dim MaiorValor as integer 'esta variavel receberá o maior valor da sua sequencia

dim lista as variant

 

agora é  só fazer um loop

redim lista(MaiorValor) as integer

j=0

for i= 1 to maior valor

           ssql = " select count from tabela where campo =" & i

           coloca aki a consulta de do ADO

           'n=tabela.recordcount

           if n= 0 then ' se o numero não estiver na tabela, armazena na lista

                 j=j+1

                 lista(j)= i     

            else

            endif

    next i

' para saber os numeros q faltam é só fazer um loop na lista

for i=1 to j

       printer.print lista(i)

next i