gistfile1.vb

Sub test()
  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset
  Dim preDayID As Long
  Dim preClosePrice As Double
  Dim sqlStr As String
  cnn.Open "Driver={MySQL ODBC 5.3 Unicode Driver};" & _
  "Server=hogehoge;" & _
  "Database=hogeDB;" & _
  "Uid=hoge;" & _
  "Pwd=hage"
  strSQL = "SELECT 終値, id, 前日終値 FROM t_db where id between 130100000 and 200000000 order by id"
  rst.Open strSQL, cnn, adOpenForwardOnly, adLockPessimistic

  Do Until rst.EOF
    If rst("id") = preDayID + 1 Then
      rst.Update "前日終値", preClosePrice
    End If
    preDayID = rst("id")
    preClosePrice = rst("終値")
    rst.MoveNext
  Loop
  rst.Close
  cnn.Close
End Sub