As a novice module developer I don't know where to put this.  The codebehind of my custom module looks like the following. Would it go in there? 

Imports DotNetNuke
Imports DotNetNuke.Common
Imports DotNetNuke.Security.PortalSecurity
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System
Imports System.Data
Imports System.Text
Imports Microsoft.VisualBasic
Imports Microsoft.ApplicationBlocks.Data

Namespace jdpaskett.Modules.PatchTracker
Public Class ucCriteria
Inherits DotNetNuke.Entities.Modules.PortalModuleBase

< _
Browsable(True), _
Bindable(False), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Custom Event SelectionChanged As EventHandler
AddHandler(ByVal value As EventHandler)
AddHandler ddlOS.SelectedIndexChanged, value
AddHandler ddlSP.SelectedIndexChanged, value
AddHandler ddlFileName.SelectedIndexChanged, value
End AddHandler

RemoveHandler(ByVal value As EventHandler)
AddHandler ddlOS.SelectedIndexChanged, value
AddHandler ddlSP.SelectedIndexChanged, value
AddHandler ddlFileName.SelectedIndexChanged, value
End RemoveHandler

RaiseEvent(ByVal sender As Object, ByVal e As System.EventArgs)
' nothing to do here
End RaiseEvent
End Event

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property PatchListID() As String
Get
Return lblPatchListID.Text
End Get
Set(ByVal value As String)
lblPatchListID.Text = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property OperatingSystemID() As String
Get
Return ddlOS.SelectedValue
End Get
Set(ByVal value As String)
ddlOS.SelectedValue = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property VersionID() As String
Get
Return ddlSP.SelectedValue
End Get
Set(ByVal value As String)
ddlSP.SelectedValue = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property FileListID() As String
Get
Return ddlFileName.SelectedValue
End Get
Set(ByVal value As String)
ddlFileName.SelectedValue = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property FileVersion() As String
Get
Return txtFileVersion.Text
End Get
Set(ByVal value As String)
txtFileVersion.Text = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property FileCreateDate() As String
Get
Return txtFileCreateDate.Text
End Get
Set(ByVal value As String)
txtFileCreateDate.Text = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property FileModifiedDate() As String
Get
Return txtFileModifiedDate.Text
End Get
Set(ByVal value As String)
txtFileModifiedDate.Text = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property UseFileCreateDate() As String
Get
Return chkUseFileCreateDate.Checked
End Get
Set(ByVal value As String)
chkUseFileCreateDate.Checked = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property UseFileModifiedDate() As String
Get
Return chkUseFileModifiedDate.Checked
End Get
Set(ByVal value As String)
chkUseFileModifiedDate.Checked = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property FailIfFound() As String
Get
Return chkFailIfFound.Checked
End Get
Set(ByVal value As String)
chkFailIfFound.Checked = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property PassIfNotFound() As String
Get
Return chkPassIfNotFound.Checked
End Get
Set(ByVal value As String)
chkPassIfNotFound.Checked = value
End Set
End Property

< _
Browsable(True), _
Bindable(True, BindingDirection.TwoWay), _
PersistenceMode(PersistenceMode.Attribute) _
> _
Public Property MustEqual() As String
Get
Return chkMustEqual.Checked
End Get
Set(ByVal value As String)
chkMustEqual.Checked = value
End Set
End Property

Protected Sub ddlOS_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlOS.SelectedIndexChanged
ddlFileName.DataBind()
If ddlOS.SelectedIndex > "0" And ddlSP.SelectedIndex > "0" Then
ddlFileName.Items.Add("New")
End If

End Sub

Protected Sub ddlSP_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlSP.SelectedIndexChanged
ddlFileName.DataBind()
If ddlOS.SelectedIndex > "0" And ddlSP.SelectedIndex > "0" Then
ddlFileName.Items.Add("New")
End If
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
lblPatchListID.Text = Request.QueryString("PatchListID")

End Sub

Protected Sub ddlFileName_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlFileName.SelectedIndexChanged
If ddlFileName.SelectedValue = "New" Then
Dim objModules As Entities.Modules.ModuleController = New Entities.Modules.ModuleController
Response.Redirect(NavigateURL(PortalSettings.ActiveTab.TabID, "AddFile", "mid=" & CStr(ModuleId)))
End If
End Sub
End Class
End Namespace

I have a tendency to do that.   This code is from the module that actually contains the navigation to the AddRecord Module. The Edit module actually contains (or hosts) this module in the InsertItemTemplate of a FormView.  I put the code you suggested in the user control containing the navigation statements. Nothing errored out and the If statement you provided returned a value, so I changed the "mid=" & CStr(ModuleId) to "mid=" & CStr(ParentModule.ModuleId) but it still didn't work.

If you would be willing to look at the controls I have them zipped up and available here.

Jon