Do Until rsParam2.EOF
           NovoCodigo = rsParam2("Doc")
           If NovoCodigo > 0 Then
           NovoCodigo = NovoCodigo + 1
  
           End If
    não faltou um rsParam2.movenext?????????? aqui!!!!!!!!! 
Loop