Imports Elevate.ElevateDB.Data

Partial Class _Default
    Inherits System.Web.UI.Page

  Protected Sub btnTest_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
Handles btnTest.Click
    ' Create connection
    Dim conTest As EDBConnection = New EDBConnection
(ConfigurationManager.ConnectionStrings("TestConnectionString").ConnectionString)
    conTest.Open()
    Try
      ' Try to update last record. Error occurs if record count is
a multiple of 32 and trying to update last record.
      Dim cmdTest As EDBCommand = New EDBCommand("UPDATE Responses SET Response=5 
WHERE ResponseID=32", conTest)
      Try
        ' Execute update
        Dim intRecordsAffected As Integer = cmdTest.ExecuteNonQuery()
      Finally
        cmdTest.Dispose()
      End Try
    Finally
      conTest.Close()
      conTest.Dispose()
    End Try
  End Sub
End Class