title: runtime error 6 overflow
body: <p>I am getting a Runtime error 6 'overflow' message on the following code upon arriving at the line starting with 'minimo'.  It was working fine until recently. After providing some cosmetic-type updates to its underlying form this message has arrived and I can't understand why.</p>
  
  <pre><code>'Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  
  rs.Open "select min(autonumerazione) from tblDashboard01", CurrentProject.Connection
  
  Do While Not rs.EOF
  minimo = rs.Fields(0)
  rs.MoveNext
  Loop
  minimo = minimo - 1
  st_Sql = "update tbldashboard01 set MasterLevel = autonumerazione - " &amp; minimo &amp; ""
  Application.DoCmd.RunSQL (st_Sql)
  </code></pre>