?
Solved

Navigation Buttons

Posted on 2005-05-04
49
Medium Priority
?
241 Views
Last Modified: 2010-04-23
I am using;

  Private Sub NavigationButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click, BtnLast.Click, BtnNext.Click, BtnPrevious.Click
        DataNavigator = BindingContext(DbMain, "Main")
        Select Case sender.Name
            Case "btnFirst"

                DataNavigator.Position = 0

            Case "btnPrevious"

                DataNavigator.Position -= 1

            Case "btnNext"

                DataNavigator.Position += 1

            Case "btnLast"

                DataNavigator.Position = DataNavigator.Count - 1

        End Select

    End Sub

But get An unhandled exception of type 'System.ArgumentException' occurred in system.windows.forms.dll

Additional information: Cannot create a child list for field Main.

I noticed that it said cannot create a list for field main (Main is one of the tables) so I changed it to;

DataNavigator = BindingContext(DbMain, "ID") (one of the fields) and got a similar result
0
Comment
Question by:matt_swinburne
  • 25
  • 24
49 Comments
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925123
dbmain is the name of your dataset I assume.
how is your dataset filled (could you show the code)
0
 

Author Comment

by:matt_swinburne
ID: 13925211
actually my dataset is called dataset11 (I am still learning so you will have to bear that in mind)

My full coding I am using at the minute (including windows generated code is);

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim DataNavigator As BindingManagerBase









#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Friend WithEvents DbMain As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbLocations As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents DataSet11 As WindowsApplication3.DataSet1
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents CmbFeeEarner As System.Windows.Forms.ComboBox
    Friend WithEvents OleDbSelectCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbFeeEarner As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents CmbMatter As System.Windows.Forms.ComboBox
    Friend WithEvents OleDbSelectCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbMatter As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents TxtCloseDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtMatterNumber As System.Windows.Forms.TextBox
    Friend WithEvents TxtClient As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtNotes As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtBox As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents OleDbSelectCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbStatus As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents CmbStatus As System.Windows.Forms.ComboBox
    Friend WithEvents TxtDestroyDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtDateRemoved As System.Windows.Forms.TextBox
    Friend WithEvents TxtStoreDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtDateIn As System.Windows.Forms.TextBox
    Friend WithEvents CmbLocation As System.Windows.Forms.ComboBox
    Friend WithEvents CmbOffice As System.Windows.Forms.ComboBox
    Friend WithEvents OleDbSelectCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbOffices As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents BtnLast As System.Windows.Forms.Button
    Friend WithEvents BtnFirst As System.Windows.Forms.Button
    Friend WithEvents BtnNext As System.Windows.Forms.Button
    Friend WithEvents BtnPrevious As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
        Me.DbMain = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
        Me.DbLocations = New System.Data.OleDb.OleDbDataAdapter
        Me.DataSet11 = New WindowsApplication3.DataSet1
        Me.CmbLocation = New System.Windows.Forms.ComboBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.TxtNotes = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.CmbFeeEarner = New System.Windows.Forms.ComboBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.TxtCloseDate = New System.Windows.Forms.TextBox
        Me.CmbMatter = New System.Windows.Forms.ComboBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.TxtMatterNumber = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.TxtClient = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.CmbOffice = New System.Windows.Forms.ComboBox
        Me.OleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand3 = New System.Data.OleDb.OleDbCommand
        Me.DbFeeEarner = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand4 = New System.Data.OleDb.OleDbCommand
        Me.DbMatter = New System.Data.OleDb.OleDbDataAdapter
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.Label13 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        Me.CmbStatus = New System.Windows.Forms.ComboBox
        Me.TxtDestroyDate = New System.Windows.Forms.TextBox
        Me.TxtDateRemoved = New System.Windows.Forms.TextBox
        Me.TxtStoreDate = New System.Windows.Forms.TextBox
        Me.TxtDateIn = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.TxtBox = New System.Windows.Forms.TextBox
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.Button3 = New System.Windows.Forms.Button
        Me.BtnLast = New System.Windows.Forms.Button
        Me.BtnFirst = New System.Windows.Forms.Button
        Me.OleDbSelectCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand5 = New System.Data.OleDb.OleDbCommand
        Me.DbStatus = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand6 = New System.Data.OleDb.OleDbCommand
        Me.DbOffices = New System.Data.OleDb.OleDbDataAdapter
        Me.BtnNext = New System.Windows.Forms.Button
        Me.BtnPrevious = New System.Windows.Forms.Button
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.SuspendLayout()
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], DestroyDate" & _
        ", DestroyFlag, FeeEarnerID, ID, LocationID, MatterNo, MatterTypeID, Notes, Offic" & _
        "eName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, truede" & _
        "stroydate FROM Main"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _
        "s\matthewm\Desktop\File Tracking.mdb"";Password=;Jet OLEDB:Engine Type=4;Jet OLED" & _
        "B:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System" & _
        " database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLE" & _
        "DB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't" & _
        " Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Use" & _
        "r ID=Admin;Jet OLEDB:Encrypt Database=False"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Main(BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], D" & _
        "estroyDate, DestroyFlag, FeeEarnerID, LocationID, MatterNo, MatterTypeID, Notes," & _
        " OfficeName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, " & _
        "truedestroydate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
        ")"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, "BoxNumber"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, "ClientName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, "CloseDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateIn", System.Data.OleDb.OleDbType.DBDate, 0, "DateIn"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, "Destroy this File"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, "DestroyDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, "DestroyFlag"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, "FeeEarnerID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationID", System.Data.OleDb.OleDbType.Integer, 0, "LocationID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, "MatterNo"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, "MatterTypeID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.Integer, 0, "OfficeName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, "RecallRequest"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, "RecallRequestDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, "RemoveDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StatusID", System.Data.OleDb.OleDbType.Integer, 0, "StatusID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, "StoreDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, "truedestroydate"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Main SET BoxNumber = ?, ClientName = ?, CloseDate = ?, DateIn = ?, [Destro" & _
        "y this File] = ?, DestroyDate = ?, DestroyFlag = ?, FeeEarnerID = ?, LocationID " & _
        "= ?, MatterNo = ?, MatterTypeID = ?, Notes = ?, OfficeName = ?, RecallRequest = " & _
        "?, RecallRequestDate = ?, RemoveDate = ?, StatusID = ?, StoreDate = ?, truedestr" & _
        "oydate = ? WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS NULL)" & _
        " AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = ? OR " & _
        "? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS NULL" & _
        ") AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL) AND" & _
        " (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = ? OR " & _
        "? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND FeeEarn" & _
        "erID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND (Matt" & _
        "erNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS NULL A" & _
        "ND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS NULL" & _
        ") AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND RecallRequ" & _
        "estDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) AND (S" & _
        "tatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS NULL A" & _
        "ND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroydate " & _
        "IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, "BoxNumber"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, "ClientName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, "CloseDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateIn", System.Data.OleDb.OleDbType.DBDate, 0, "DateIn"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, "Destroy this File"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, "DestroyDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, "DestroyFlag"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, "FeeEarnerID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationID", System.Data.OleDb.OleDbType.Integer, 0, "LocationID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, "MatterNo"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, "MatterTypeID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.Integer, 0, "OfficeName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, "RecallRequest"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, "RecallRequestDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, "RemoveDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StatusID", System.Data.OleDb.OleDbType.Integer, 0, "StatusID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, "StoreDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, "truedestroydate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Main WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS " & _
        "NULL) AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = " & _
        "? OR ? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS" & _
        " NULL) AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL" & _
        ") AND (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = " & _
        "? OR ? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND Fe" & _
        "eEarnerID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND " & _
        "(MatterNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS N" & _
        "ULL AND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS" & _
        " NULL) AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND Recal" & _
        "lRequestDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) A" & _
        "ND (StatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS N" & _
        "ULL AND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroy" & _
        "date IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbMain
        '
        Me.DbMain.DeleteCommand = Me.OleDbDeleteCommand1
        Me.DbMain.InsertCommand = Me.OleDbInsertCommand1
        Me.DbMain.SelectCommand = Me.OleDbSelectCommand1
        Me.DbMain.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Main", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("BoxNumber", "BoxNumber"), New System.Data.Common.DataColumnMapping("ClientName", "ClientName"), New System.Data.Common.DataColumnMapping("CloseDate", "CloseDate"), New System.Data.Common.DataColumnMapping("DateIn", "DateIn"), New System.Data.Common.DataColumnMapping("Destroy this File", "Destroy this File"), New System.Data.Common.DataColumnMapping("DestroyDate", "DestroyDate"), New System.Data.Common.DataColumnMapping("DestroyFlag", "DestroyFlag"), New System.Data.Common.DataColumnMapping("FeeEarnerID", "FeeEarnerID"), New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("LocationID", "LocationID"), New System.Data.Common.DataColumnMapping("MatterNo", "MatterNo"), New System.Data.Common.DataColumnMapping("MatterTypeID", "MatterTypeID"), New System.Data.Common.DataColumnMapping("Notes", "Notes"), New System.Data.Common.DataColumnMapping("OfficeName", "OfficeName"), New System.Data.Common.DataColumnMapping("RecallRequest", "RecallRequest"), New System.Data.Common.DataColumnMapping("RecallRequestDate", "RecallRequestDate"), New System.Data.Common.DataColumnMapping("RemoveDate", "RemoveDate"), New System.Data.Common.DataColumnMapping("StatusID", "StatusID"), New System.Data.Common.DataColumnMapping("StoreDate", "StoreDate"), New System.Data.Common.DataColumnMapping("truedestroydate", "truedestroydate")})})
        Me.DbMain.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT LocationID, LocationName FROM Locations"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO Locations(LocationName) VALUES (?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, "LocationName"))
        '
        'OleDbUpdateCommand2
        '
        Me.OleDbUpdateCommand2.CommandText = "UPDATE Locations SET LocationName = ? WHERE (LocationID = ?) AND (LocationName = " & _
        "? OR ? IS NULL AND LocationName IS NULL)"
        Me.OleDbUpdateCommand2.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, "LocationName"))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand2
        '
        Me.OleDbDeleteCommand2.CommandText = "DELETE FROM Locations WHERE (LocationID = ?) AND (LocationName = ? OR ? IS NULL A" & _
        "ND LocationName IS NULL)"
        Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbLocations
        '
        Me.DbLocations.DeleteCommand = Me.OleDbDeleteCommand2
        Me.DbLocations.InsertCommand = Me.OleDbInsertCommand2
        Me.DbLocations.SelectCommand = Me.OleDbSelectCommand2
        Me.DbLocations.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Locations", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("LocationID", "LocationID"), New System.Data.Common.DataColumnMapping("LocationName", "LocationName")})})
        Me.DbLocations.UpdateCommand = Me.OleDbUpdateCommand2
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-GB")
        '
        'CmbLocation
        '
        Me.CmbLocation.Location = New System.Drawing.Point(88, 104)
        Me.CmbLocation.Name = "CmbLocation"
        Me.CmbLocation.Size = New System.Drawing.Size(320, 28)
        Me.CmbLocation.TabIndex = 0
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.GroupBox2)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.CmbFeeEarner)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.TxtCloseDate)
        Me.GroupBox1.Controls.Add(Me.CmbMatter)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.TxtMatterNumber)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.TxtClient)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.CmbOffice)
        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(392, 400)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Client Details"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.TxtNotes)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 224)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(376, 168)
        Me.GroupBox2.TabIndex = 12
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "General Notes"
        '
        'TxtNotes
        '
        Me.TxtNotes.AutoSize = False
        Me.TxtNotes.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.Notes"))
        Me.TxtNotes.Location = New System.Drawing.Point(8, 24)
        Me.TxtNotes.Name = "TxtNotes"
        Me.TxtNotes.Size = New System.Drawing.Size(360, 136)
        Me.TxtNotes.TabIndex = 0
        Me.TxtNotes.Text = ""
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.Location = New System.Drawing.Point(8, 200)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(96, 16)
        Me.Label6.TabIndex = 11
        Me.Label6.Text = "Fee Earner"
        '
        'CmbFeeEarner
        '
        Me.CmbFeeEarner.Location = New System.Drawing.Point(112, 192)
        Me.CmbFeeEarner.Name = "CmbFeeEarner"
        Me.CmbFeeEarner.Size = New System.Drawing.Size(264, 28)
        Me.CmbFeeEarner.TabIndex = 10
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.Location = New System.Drawing.Point(8, 136)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(104, 16)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "File Close Date"
        '
        'TxtCloseDate
        '
        Me.TxtCloseDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.CloseDate"))
        Me.TxtCloseDate.Location = New System.Drawing.Point(112, 128)
        Me.TxtCloseDate.Name = "TxtCloseDate"
        Me.TxtCloseDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtCloseDate.TabIndex = 8
        Me.TxtCloseDate.Text = ""
        '
        'CmbMatter
        '
        Me.CmbMatter.Location = New System.Drawing.Point(112, 96)
        Me.CmbMatter.Name = "CmbMatter"
        Me.CmbMatter.Size = New System.Drawing.Size(256, 28)
        Me.CmbMatter.TabIndex = 7
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(8, 104)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(104, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "Matter Type"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(8, 72)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(104, 16)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Matter Number"
        '
        'TxtMatterNumber
        '
        Me.TxtMatterNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.MatterNo"))
        Me.TxtMatterNumber.Location = New System.Drawing.Point(112, 64)
        Me.TxtMatterNumber.Name = "TxtMatterNumber"
        Me.TxtMatterNumber.Size = New System.Drawing.Size(112, 26)
        Me.TxtMatterNumber.TabIndex = 4
        Me.TxtMatterNumber.Text = ""
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(104, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Title and Full Name"
        '
        'TxtClient
        '
        Me.TxtClient.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.ClientName"))
        Me.TxtClient.Location = New System.Drawing.Point(112, 32)
        Me.TxtClient.Name = "TxtClient"
        Me.TxtClient.Size = New System.Drawing.Size(176, 26)
        Me.TxtClient.TabIndex = 2
        Me.TxtClient.Text = ""
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(8, 168)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 16)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Originating Office"
        '
        'CmbOffice
        '
        Me.CmbOffice.Location = New System.Drawing.Point(112, 160)
        Me.CmbOffice.Name = "CmbOffice"
        Me.CmbOffice.Size = New System.Drawing.Size(264, 28)
        Me.CmbOffice.TabIndex = 7
        '
        'OleDbSelectCommand3
        '
        Me.OleDbSelectCommand3.CommandText = "SELECT FeeEarnerID, FeeEarnerName FROM FeeEarner"
        Me.OleDbSelectCommand3.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand3
        '
        Me.OleDbInsertCommand3.CommandText = "INSERT INTO FeeEarner(FeeEarnerName) VALUES (?)"
        Me.OleDbInsertCommand3.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, "FeeEarnerName"))
        '
        'OleDbUpdateCommand3
        '
        Me.OleDbUpdateCommand3.CommandText = "UPDATE FeeEarner SET FeeEarnerName = ? WHERE (FeeEarnerID = ?) AND (FeeEarnerName" & _
        " = ? OR ? IS NULL AND FeeEarnerName IS NULL)"
        Me.OleDbUpdateCommand3.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, "FeeEarnerName"))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand3
        '
        Me.OleDbDeleteCommand3.CommandText = "DELETE FROM FeeEarner WHERE (FeeEarnerID = ?) AND (FeeEarnerName = ? OR ? IS NULL" & _
        " AND FeeEarnerName IS NULL)"
        Me.OleDbDeleteCommand3.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbFeeEarner
        '
        Me.DbFeeEarner.DeleteCommand = Me.OleDbDeleteCommand3
        Me.DbFeeEarner.InsertCommand = Me.OleDbInsertCommand3
        Me.DbFeeEarner.SelectCommand = Me.OleDbSelectCommand3
        Me.DbFeeEarner.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "FeeEarner", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("FeeEarnerID", "FeeEarnerID"), New System.Data.Common.DataColumnMapping("FeeEarnerName", "FeeEarnerName")})})
        Me.DbFeeEarner.UpdateCommand = Me.OleDbUpdateCommand3
        '
        'OleDbSelectCommand4
        '
        Me.OleDbSelectCommand4.CommandText = "SELECT MatterTypeID, MatterTypeName FROM Matter"
        Me.OleDbSelectCommand4.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand4
        '
        Me.OleDbInsertCommand4.CommandText = "INSERT INTO Matter(MatterTypeName) VALUES (?)"
        Me.OleDbInsertCommand4.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, "MatterTypeName"))
        '
        'OleDbUpdateCommand4
        '
        Me.OleDbUpdateCommand4.CommandText = "UPDATE Matter SET MatterTypeName = ? WHERE (MatterTypeID = ?) AND (MatterTypeName" & _
        " = ? OR ? IS NULL AND MatterTypeName IS NULL)"
        Me.OleDbUpdateCommand4.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, "MatterTypeName"))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand4
        '
        Me.OleDbDeleteCommand4.CommandText = "DELETE FROM Matter WHERE (MatterTypeID = ?) AND (MatterTypeName = ? OR ? IS NULL " & _
        "AND MatterTypeName IS NULL)"
        Me.OleDbDeleteCommand4.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbMatter
        '
        Me.DbMatter.DeleteCommand = Me.OleDbDeleteCommand4
        Me.DbMatter.InsertCommand = Me.OleDbInsertCommand4
        Me.DbMatter.SelectCommand = Me.OleDbSelectCommand4
        Me.DbMatter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Matter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("MatterTypeID", "MatterTypeID"), New System.Data.Common.DataColumnMapping("MatterTypeName", "MatterTypeName")})})
        Me.DbMatter.UpdateCommand = Me.OleDbUpdateCommand4
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Label13)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.CmbStatus)
        Me.GroupBox3.Controls.Add(Me.TxtDestroyDate)
        Me.GroupBox3.Controls.Add(Me.TxtDateRemoved)
        Me.GroupBox3.Controls.Add(Me.TxtStoreDate)
        Me.GroupBox3.Controls.Add(Me.TxtDateIn)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.TxtBox)
        Me.GroupBox3.Controls.Add(Me.CmbLocation)
        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox3.Location = New System.Drawing.Point(408, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(432, 272)
        Me.GroupBox3.TabIndex = 2
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Storage Details"
        '
        'Label13
        '
        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.Location = New System.Drawing.Point(8, 80)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(72, 16)
        Me.Label13.TabIndex = 13
        Me.Label13.Text = "Status"
        '
        'Label12
        '
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.Location = New System.Drawing.Point(8, 112)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(72, 24)
        Me.Label12.TabIndex = 12
        Me.Label12.Text = "Location"
        '
        'Label11
        '
        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.Location = New System.Drawing.Point(8, 144)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(72, 16)
        Me.Label11.TabIndex = 11
        Me.Label11.Text = "Date In"
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.Location = New System.Drawing.Point(8, 176)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(72, 12)
        Me.Label10.TabIndex = 10
        Me.Label10.Text = "Store Date"
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.Location = New System.Drawing.Point(8, 208)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(80, 12)
        Me.Label9.TabIndex = 9
        Me.Label9.Text = "Date Removed"
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.Location = New System.Drawing.Point(8, 240)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 20)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "Destroy Date"
        '
        'CmbStatus
        '
        Me.CmbStatus.Location = New System.Drawing.Point(88, 72)
        Me.CmbStatus.Name = "CmbStatus"
        Me.CmbStatus.Size = New System.Drawing.Size(320, 28)
        Me.CmbStatus.TabIndex = 6
        '
        'TxtDestroyDate
        '
        Me.TxtDestroyDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.DestroyDate"))
        Me.TxtDestroyDate.Location = New System.Drawing.Point(88, 232)
        Me.TxtDestroyDate.Name = "TxtDestroyDate"
        Me.TxtDestroyDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtDestroyDate.TabIndex = 5
        Me.TxtDestroyDate.Text = ""
        '
        'TxtDateRemoved
        '
        Me.TxtDateRemoved.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.RemoveDate"))
        Me.TxtDateRemoved.Location = New System.Drawing.Point(88, 200)
        Me.TxtDateRemoved.Name = "TxtDateRemoved"
        Me.TxtDateRemoved.Size = New System.Drawing.Size(96, 26)
        Me.TxtDateRemoved.TabIndex = 4
        Me.TxtDateRemoved.Text = ""
        '
        'TxtStoreDate
        '
        Me.TxtStoreDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.StoreDate"))
        Me.TxtStoreDate.Location = New System.Drawing.Point(88, 168)
        Me.TxtStoreDate.Name = "TxtStoreDate"
        Me.TxtStoreDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtStoreDate.TabIndex = 3
        Me.TxtStoreDate.Text = ""
        '
        'TxtDateIn
        '
        Me.TxtDateIn.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.DateIn"))
        Me.TxtDateIn.Location = New System.Drawing.Point(88, 136)
        Me.TxtDateIn.Name = "TxtDateIn"
        Me.TxtDateIn.Size = New System.Drawing.Size(96, 26)
        Me.TxtDateIn.TabIndex = 2
        Me.TxtDateIn.Text = ""
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.Location = New System.Drawing.Point(8, 40)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 32)
        Me.Label7.TabIndex = 1
        Me.Label7.Text = "Box Number"
        '
        'TxtBox
        '
        Me.TxtBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.BoxNumber"))
        Me.TxtBox.Location = New System.Drawing.Point(88, 40)
        Me.TxtBox.Name = "TxtBox"
        Me.TxtBox.Size = New System.Drawing.Size(104, 26)
        Me.TxtBox.TabIndex = 0
        Me.TxtBox.Text = ""
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.BtnPrevious)
        Me.GroupBox4.Controls.Add(Me.BtnNext)
        Me.GroupBox4.Controls.Add(Me.Button3)
        Me.GroupBox4.Controls.Add(Me.BtnLast)
        Me.GroupBox4.Controls.Add(Me.BtnFirst)
        Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox4.Location = New System.Drawing.Point(408, 280)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(432, 128)
        Me.GroupBox4.TabIndex = 3
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Record Navigation"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(120, 80)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 24)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "Search"
        '
        'BtnLast
        '
        Me.BtnLast.Location = New System.Drawing.Point(232, 80)
        Me.BtnLast.Name = "BtnLast"
        Me.BtnLast.Size = New System.Drawing.Size(40, 24)
        Me.BtnLast.TabIndex = 1
        Me.BtnLast.Text = ">>"
        '
        'BtnFirst
        '
        Me.BtnFirst.Location = New System.Drawing.Point(40, 80)
        Me.BtnFirst.Name = "BtnFirst"
        Me.BtnFirst.Size = New System.Drawing.Size(40, 24)
        Me.BtnFirst.TabIndex = 0
        Me.BtnFirst.Text = "<<"
        '
        'OleDbSelectCommand5
        '
        Me.OleDbSelectCommand5.CommandText = "SELECT StorageID, StorageName FROM Status"
        Me.OleDbSelectCommand5.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand5
        '
        Me.OleDbInsertCommand5.CommandText = "INSERT INTO Status(StorageName) VALUES (?)"
        Me.OleDbInsertCommand5.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, "StorageName"))
        '
        'OleDbUpdateCommand5
        '
        Me.OleDbUpdateCommand5.CommandText = "UPDATE Status SET StorageName = ? WHERE (StorageID = ?) AND (StorageName = ? OR ?" & _
        " IS NULL AND StorageName IS NULL)"
        Me.OleDbUpdateCommand5.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, "StorageName"))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand5
        '
        Me.OleDbDeleteCommand5.CommandText = "DELETE FROM Status WHERE (StorageID = ?) AND (StorageName = ? OR ? IS NULL AND St" & _
        "orageName IS NULL)"
        Me.OleDbDeleteCommand5.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbStatus
        '
        Me.DbStatus.DeleteCommand = Me.OleDbDeleteCommand5
        Me.DbStatus.InsertCommand = Me.OleDbInsertCommand5
        Me.DbStatus.SelectCommand = Me.OleDbSelectCommand5
        Me.DbStatus.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Status", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("StorageID", "StorageID"), New System.Data.Common.DataColumnMapping("StorageName", "StorageName")})})
        Me.DbStatus.UpdateCommand = Me.OleDbUpdateCommand5
        '
        'OleDbSelectCommand6
        '
        Me.OleDbSelectCommand6.CommandText = "SELECT OfficeID, OfficeName FROM Offices"
        Me.OleDbSelectCommand6.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand6
        '
        Me.OleDbInsertCommand6.CommandText = "INSERT INTO Offices(OfficeName) VALUES (?)"
        Me.OleDbInsertCommand6.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, "OfficeName"))
        '
        'OleDbUpdateCommand6
        '
        Me.OleDbUpdateCommand6.CommandText = "UPDATE Offices SET OfficeName = ? WHERE (OfficeID = ?) AND (OfficeName = ? OR ? I" & _
        "S NULL AND OfficeName IS NULL)"
        Me.OleDbUpdateCommand6.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, "OfficeName"))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand6
        '
        Me.OleDbDeleteCommand6.CommandText = "DELETE FROM Offices WHERE (OfficeID = ?) AND (OfficeName = ? OR ? IS NULL AND Off" & _
        "iceName IS NULL)"
        Me.OleDbDeleteCommand6.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbOffices
        '
        Me.DbOffices.DeleteCommand = Me.OleDbDeleteCommand6
        Me.DbOffices.InsertCommand = Me.OleDbInsertCommand6
        Me.DbOffices.SelectCommand = Me.OleDbSelectCommand6
        Me.DbOffices.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Offices", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("OfficeID", "OfficeID"), New System.Data.Common.DataColumnMapping("OfficeName", "OfficeName")})})
        Me.DbOffices.UpdateCommand = Me.OleDbUpdateCommand6
        '
        'BtnNext
        '
        Me.BtnNext.Location = New System.Drawing.Point(192, 80)
        Me.BtnNext.Name = "BtnNext"
        Me.BtnNext.Size = New System.Drawing.Size(40, 24)
        Me.BtnNext.TabIndex = 3
        Me.BtnNext.Text = ">"
        '
        'BtnPrevious
        '
        Me.BtnPrevious.Location = New System.Drawing.Point(80, 80)
        Me.BtnPrevious.Name = "BtnPrevious"
        Me.BtnPrevious.Size = New System.Drawing.Size(40, 24)
        Me.BtnPrevious.TabIndex = 4
        Me.BtnPrevious.Text = "<"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(848, 414)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "Form1"
        Me.Text = "Smith Partnership - File Tracker"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Fill Dataset
        DbMain.Fill(DataSet11, "Main")
        DbLocations.Fill(DataSet11, "Locations")
        DbFeeEarner.Fill(DataSet11, "FeeEarner")
        DbMatter.Fill(DataSet11, "Matter")
        DbStatus.Fill(DataSet11, "Status")
        DbOffices.Fill(DataSet11, "Offices")

        'Load Originating Location Combo
        CmbLocation.DataSource = DataSet11.Tables("Locations")
        CmbLocation.DisplayMember = "LocationName"
        CmbLocation.ValueMember = "LocationID"
        CmbLocation.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "LocationID")

        'Load FeeEarner ComboBox
        CmbFeeEarner.DataSource = DataSet11.Tables("FeeEarner")
        CmbFeeEarner.DisplayMember = "FeeEarnerName"
        CmbFeeEarner.ValueMember = "FeeEarnerID"
        CmbFeeEarner.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "FeeEarnerID")

        'Load MatterType Combobox
        CmbMatter.DataSource = DataSet11.Tables("Matter")
        CmbMatter.DisplayMember = "MatterTypeName"
        CmbMatter.ValueMember = "MatterTypeID"
        CmbMatter.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "MatterTypeID")

        'Load Status Combobox
        CmbStatus.DataSource = DataSet11.Tables("Status")
        CmbStatus.DisplayMember = "StorageName"
        CmbStatus.ValueMember = "StorageID"
        CmbStatus.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "StatusID")

        'Load Office Combobox
        CmbOffice.DataSource = DataSet11.Tables("Offices")
        CmbOffice.DisplayMember = "OfficeName"
        CmbOffice.ValueMember = "OfficeID"
        CmbOffice.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "OfficeName")
    End Sub
    Private Sub NavigationButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click, BtnLast.Click, BtnNext.Click, BtnPrevious.Click
        DbMain = BindingContext(dsCategory, "QstnCategory")

        Select Case sender.Name
            Case "btnFirst"

                DbMain.Position = 0

            Case "btnPrevious"

                DbMain.Position -= 1

            Case "btnNext"

                DbMain.Position += 1

            Case "btnLast"

                DbMain.Position = DbMain.Count - 1
        End Select

    End Sub





    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim FrmSearch As Form
        FrmSearch = New Search
        FrmSearch.Show()
    End Sub


End Class


Hope this helps you
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925273
ok change to this (i'm binding to the main table)


dim cm as currencymanager

but the line below in the load event
cm = CType(Me.BindingContext(dataset11,"Main"), CurrencyManager)

Private Sub NavigationButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click, BtnLast.Click, BtnNext.Click, BtnPrevious.Click


        Select Case sender.Name
            Case "btnFirst"

cm.Position = 0

            Case "btnPrevious"

                cm.Position -= 1

            Case "btnNext"

                cm.Position += 1

            Case "btnLast"

                cm.Position = dataset11.tables("Main").count - 1
        End Select

    End Sub
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 

Author Comment

by:matt_swinburne
ID: 13925302
Hi Again Ronald! just noticed it was you.

on line -

   cm.Position = DataSet11.Tables("Main").count - 1

I get;

'Count' is not a member of 'System.Data.DataTable'

0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925393
sorry typo,

 cm.Position = DataSet11.Tables("Main").rows.count - 1
0
 

Author Comment

by:matt_swinburne
ID: 13925462
Ok Ammeded and no errors, still not cycling through database though.
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925570
Which table do you want to cycle through ?
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925588
try changing it to this

            cm = CType(Me.BindingContext(dataset11.tables("Main")), CurrencyManager)
0
 

Author Comment

by:matt_swinburne
ID: 13925612
I want to cycle through main, there are 9 textboxes and 5 combo boxes that need populating from the Table main.  The combo boxes are using the code supplied yesterday;

'Populate FeeEarner ComboBox
        CmbFeeEarner.DataSource = DataSet11.Tables("FeeEarner")
        CmbFeeEarner.DisplayMember = "FeeEarnerName"
        CmbFeeEarner.ValueMember = "FeeEarnerID"
        CmbFeeEarner.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "FeeEarnerID")
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925650
is it not cycling at all, or some cycle and some not
0
 

Author Comment

by:matt_swinburne
ID: 13925688
Not cycling at all - nothing happening - strange cuz no errors
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13925711
could you post the code you have now again, I'll see if I can spot the erro
0
 

Author Comment

by:matt_swinburne
ID: 13926130
Thanks

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim cm As CurrencyManager
#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Friend WithEvents DbMain As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand2 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbLocations As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents DataSet11 As WindowsApplication3.DataSet1
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents CmbFeeEarner As System.Windows.Forms.ComboBox
    Friend WithEvents OleDbSelectCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand3 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbFeeEarner As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents OleDbSelectCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand4 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbMatter As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents TxtCloseDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtMatterNumber As System.Windows.Forms.TextBox
    Friend WithEvents TxtClient As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtNotes As System.Windows.Forms.TextBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtBox As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents OleDbSelectCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand5 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbStatus As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents CmbStatus As System.Windows.Forms.ComboBox
    Friend WithEvents TxtDestroyDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtDateRemoved As System.Windows.Forms.TextBox
    Friend WithEvents TxtStoreDate As System.Windows.Forms.TextBox
    Friend WithEvents TxtDateIn As System.Windows.Forms.TextBox
    Friend WithEvents CmbLocation As System.Windows.Forms.ComboBox
    Friend WithEvents CmbOffice As System.Windows.Forms.ComboBox
    Friend WithEvents OleDbSelectCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand6 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DbOffices As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents BtnLast As System.Windows.Forms.Button
    Friend WithEvents BtnFirst As System.Windows.Forms.Button
    Friend WithEvents BtnNext As System.Windows.Forms.Button
    Friend WithEvents BtnPrevious As System.Windows.Forms.Button
    Public WithEvents CmbMatter As System.Windows.Forms.ComboBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
        Me.DbMain = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
        Me.DbLocations = New System.Data.OleDb.OleDbDataAdapter
        Me.DataSet11 = New WindowsApplication3.DataSet1
        Me.CmbLocation = New System.Windows.Forms.ComboBox
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.TxtNotes = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.CmbFeeEarner = New System.Windows.Forms.ComboBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.TxtCloseDate = New System.Windows.Forms.TextBox
        Me.CmbMatter = New System.Windows.Forms.ComboBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.TxtMatterNumber = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.TxtClient = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.CmbOffice = New System.Windows.Forms.ComboBox
        Me.OleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand3 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand3 = New System.Data.OleDb.OleDbCommand
        Me.DbFeeEarner = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand4 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand4 = New System.Data.OleDb.OleDbCommand
        Me.DbMatter = New System.Data.OleDb.OleDbDataAdapter
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.Label13 = New System.Windows.Forms.Label
        Me.Label12 = New System.Windows.Forms.Label
        Me.Label11 = New System.Windows.Forms.Label
        Me.Label10 = New System.Windows.Forms.Label
        Me.Label9 = New System.Windows.Forms.Label
        Me.Label8 = New System.Windows.Forms.Label
        Me.CmbStatus = New System.Windows.Forms.ComboBox
        Me.TxtDestroyDate = New System.Windows.Forms.TextBox
        Me.TxtDateRemoved = New System.Windows.Forms.TextBox
        Me.TxtStoreDate = New System.Windows.Forms.TextBox
        Me.TxtDateIn = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.TxtBox = New System.Windows.Forms.TextBox
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.BtnPrevious = New System.Windows.Forms.Button
        Me.BtnNext = New System.Windows.Forms.Button
        Me.Button3 = New System.Windows.Forms.Button
        Me.BtnLast = New System.Windows.Forms.Button
        Me.BtnFirst = New System.Windows.Forms.Button
        Me.OleDbSelectCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand5 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand5 = New System.Data.OleDb.OleDbCommand
        Me.DbStatus = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbSelectCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand6 = New System.Data.OleDb.OleDbCommand
        Me.OleDbDeleteCommand6 = New System.Data.OleDb.OleDbCommand
        Me.DbOffices = New System.Data.OleDb.OleDbDataAdapter
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.SuspendLayout()
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], DestroyDate" & _
        ", DestroyFlag, FeeEarnerID, ID, LocationID, MatterNo, MatterTypeID, Notes, Offic" & _
        "eName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, truede" & _
        "stroydate FROM Main"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=0;Jet OLEDB:Database Password=;Data Source=""C:\Documents and Setting" & _
        "s\matthewm\Desktop\File Tracking.mdb"";Password=;Jet OLEDB:Engine Type=4;Jet OLED" & _
        "B:Global Bulk Transactions=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System" & _
        " database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share Deny None;Jet OLE" & _
        "DB:New Database Password=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't" & _
        " Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Use" & _
        "r ID=Admin;Jet OLEDB:Encrypt Database=False"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Main(BoxNumber, ClientName, CloseDate, DateIn, [Destroy this File], D" & _
        "estroyDate, DestroyFlag, FeeEarnerID, LocationID, MatterNo, MatterTypeID, Notes," & _
        " OfficeName, RecallRequest, RecallRequestDate, RemoveDate, StatusID, StoreDate, " & _
        "truedestroydate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?" & _
        ")"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, "BoxNumber"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, "ClientName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, "CloseDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateIn", System.Data.OleDb.OleDbType.DBDate, 0, "DateIn"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, "Destroy this File"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, "DestroyDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, "DestroyFlag"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, "FeeEarnerID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationID", System.Data.OleDb.OleDbType.Integer, 0, "LocationID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, "MatterNo"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, "MatterTypeID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.Integer, 0, "OfficeName"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, "RecallRequest"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, "RecallRequestDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, "RemoveDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StatusID", System.Data.OleDb.OleDbType.Integer, 0, "StatusID"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, "StoreDate"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, "truedestroydate"))
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Main SET BoxNumber = ?, ClientName = ?, CloseDate = ?, DateIn = ?, [Destro" & _
        "y this File] = ?, DestroyDate = ?, DestroyFlag = ?, FeeEarnerID = ?, LocationID " & _
        "= ?, MatterNo = ?, MatterTypeID = ?, Notes = ?, OfficeName = ?, RecallRequest = " & _
        "?, RecallRequestDate = ?, RemoveDate = ?, StatusID = ?, StoreDate = ?, truedestr" & _
        "oydate = ? WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS NULL)" & _
        " AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = ? OR " & _
        "? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS NULL" & _
        ") AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL) AND" & _
        " (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = ? OR " & _
        "? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND FeeEarn" & _
        "erID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND (Matt" & _
        "erNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS NULL A" & _
        "ND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS NULL" & _
        ") AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND RecallRequ" & _
        "estDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) AND (S" & _
        "tatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS NULL A" & _
        "ND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroydate " & _
        "IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, "BoxNumber"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, "ClientName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, "CloseDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DateIn", System.Data.OleDb.OleDbType.DBDate, 0, "DateIn"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, "Destroy this File"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, "DestroyDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, "DestroyFlag"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, "FeeEarnerID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationID", System.Data.OleDb.OleDbType.Integer, 0, "LocationID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, "MatterNo"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, "MatterTypeID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Notes", System.Data.OleDb.OleDbType.VarWChar, 0, "Notes"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.Integer, 0, "OfficeName"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, "RecallRequest"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, "RecallRequestDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, "RemoveDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StatusID", System.Data.OleDb.OleDbType.Integer, 0, "StatusID"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, "StoreDate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, "truedestroydate"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Main WHERE (ID = ?) AND (BoxNumber = ? OR ? IS NULL AND BoxNumber IS " & _
        "NULL) AND (ClientName = ? OR ? IS NULL AND ClientName IS NULL) AND (CloseDate = " & _
        "? OR ? IS NULL AND CloseDate IS NULL) AND (DateIn = ? OR ? IS NULL AND DateIn IS" & _
        " NULL) AND ([Destroy this File] = ? OR ? IS NULL AND [Destroy this File] IS NULL" & _
        ") AND (DestroyDate = ? OR ? IS NULL AND DestroyDate IS NULL) AND (DestroyFlag = " & _
        "? OR ? IS NULL AND DestroyFlag IS NULL) AND (FeeEarnerID = ? OR ? IS NULL AND Fe" & _
        "eEarnerID IS NULL) AND (LocationID = ? OR ? IS NULL AND LocationID IS NULL) AND " & _
        "(MatterNo = ? OR ? IS NULL AND MatterNo IS NULL) AND (MatterTypeID = ? OR ? IS N" & _
        "ULL AND MatterTypeID IS NULL) AND (OfficeName = ? OR ? IS NULL AND OfficeName IS" & _
        " NULL) AND (RecallRequest = ?) AND (RecallRequestDate = ? OR ? IS NULL AND Recal" & _
        "lRequestDate IS NULL) AND (RemoveDate = ? OR ? IS NULL AND RemoveDate IS NULL) A" & _
        "ND (StatusID = ? OR ? IS NULL AND StatusID IS NULL) AND (StoreDate = ? OR ? IS N" & _
        "ULL AND StoreDate IS NULL) AND (truedestroydate = ? OR ? IS NULL AND truedestroy" & _
        "date IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_BoxNumber1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BoxNumber", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ClientName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ClientName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_CloseDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "CloseDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DateIn1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DateIn", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Destroy_this_File1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Destroy this File", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_DestroyFlag1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DestroyFlag", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterNo1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterNo", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequest", System.Data.OleDb.OleDbType.Boolean, 2, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequest", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RecallRequestDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RecallRequestDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_RemoveDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "RemoveDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StatusID1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StatusID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StoreDate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StoreDate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_truedestroydate1", System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "truedestroydate", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbMain
        '
        Me.DbMain.DeleteCommand = Me.OleDbDeleteCommand1
        Me.DbMain.InsertCommand = Me.OleDbInsertCommand1
        Me.DbMain.SelectCommand = Me.OleDbSelectCommand1
        Me.DbMain.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Main", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("BoxNumber", "BoxNumber"), New System.Data.Common.DataColumnMapping("ClientName", "ClientName"), New System.Data.Common.DataColumnMapping("CloseDate", "CloseDate"), New System.Data.Common.DataColumnMapping("DateIn", "DateIn"), New System.Data.Common.DataColumnMapping("Destroy this File", "Destroy this File"), New System.Data.Common.DataColumnMapping("DestroyDate", "DestroyDate"), New System.Data.Common.DataColumnMapping("DestroyFlag", "DestroyFlag"), New System.Data.Common.DataColumnMapping("FeeEarnerID", "FeeEarnerID"), New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("LocationID", "LocationID"), New System.Data.Common.DataColumnMapping("MatterNo", "MatterNo"), New System.Data.Common.DataColumnMapping("MatterTypeID", "MatterTypeID"), New System.Data.Common.DataColumnMapping("Notes", "Notes"), New System.Data.Common.DataColumnMapping("OfficeName", "OfficeName"), New System.Data.Common.DataColumnMapping("RecallRequest", "RecallRequest"), New System.Data.Common.DataColumnMapping("RecallRequestDate", "RecallRequestDate"), New System.Data.Common.DataColumnMapping("RemoveDate", "RemoveDate"), New System.Data.Common.DataColumnMapping("StatusID", "StatusID"), New System.Data.Common.DataColumnMapping("StoreDate", "StoreDate"), New System.Data.Common.DataColumnMapping("truedestroydate", "truedestroydate")})})
        Me.DbMain.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbSelectCommand2
        '
        Me.OleDbSelectCommand2.CommandText = "SELECT LocationID, LocationName FROM Locations"
        Me.OleDbSelectCommand2.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand2
        '
        Me.OleDbInsertCommand2.CommandText = "INSERT INTO Locations(LocationName) VALUES (?)"
        Me.OleDbInsertCommand2.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, "LocationName"))
        '
        'OleDbUpdateCommand2
        '
        Me.OleDbUpdateCommand2.CommandText = "UPDATE Locations SET LocationName = ? WHERE (LocationID = ?) AND (LocationName = " & _
        "? OR ? IS NULL AND LocationName IS NULL)"
        Me.OleDbUpdateCommand2.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, "LocationName"))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand2
        '
        Me.OleDbDeleteCommand2.CommandText = "DELETE FROM Locations WHERE (LocationID = ?) AND (LocationName = ? OR ? IS NULL A" & _
        "ND LocationName IS NULL)"
        Me.OleDbDeleteCommand2.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand2.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_LocationName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LocationName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbLocations
        '
        Me.DbLocations.DeleteCommand = Me.OleDbDeleteCommand2
        Me.DbLocations.InsertCommand = Me.OleDbInsertCommand2
        Me.DbLocations.SelectCommand = Me.OleDbSelectCommand2
        Me.DbLocations.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Locations", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("LocationID", "LocationID"), New System.Data.Common.DataColumnMapping("LocationName", "LocationName")})})
        Me.DbLocations.UpdateCommand = Me.OleDbUpdateCommand2
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-GB")
        '
        'CmbLocation
        '
        Me.CmbLocation.Location = New System.Drawing.Point(88, 104)
        Me.CmbLocation.Name = "CmbLocation"
        Me.CmbLocation.Size = New System.Drawing.Size(320, 28)
        Me.CmbLocation.TabIndex = 0
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.GroupBox2)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.CmbFeeEarner)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.TxtCloseDate)
        Me.GroupBox1.Controls.Add(Me.CmbMatter)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.TxtMatterNumber)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.TxtClient)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Controls.Add(Me.CmbOffice)
        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox1.Location = New System.Drawing.Point(8, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(392, 400)
        Me.GroupBox1.TabIndex = 1
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Client Details"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.TxtNotes)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 224)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(376, 168)
        Me.GroupBox2.TabIndex = 12
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "General Notes"
        '
        'TxtNotes
        '
        Me.TxtNotes.AutoSize = False
        Me.TxtNotes.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.Notes"))
        Me.TxtNotes.Location = New System.Drawing.Point(8, 24)
        Me.TxtNotes.Name = "TxtNotes"
        Me.TxtNotes.Size = New System.Drawing.Size(360, 136)
        Me.TxtNotes.TabIndex = 0
        Me.TxtNotes.Text = ""
        '
        'Label6
        '
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.Location = New System.Drawing.Point(8, 200)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(96, 16)
        Me.Label6.TabIndex = 11
        Me.Label6.Text = "Fee Earner"
        '
        'CmbFeeEarner
        '
        Me.CmbFeeEarner.Location = New System.Drawing.Point(112, 192)
        Me.CmbFeeEarner.Name = "CmbFeeEarner"
        Me.CmbFeeEarner.Size = New System.Drawing.Size(264, 28)
        Me.CmbFeeEarner.TabIndex = 10
        '
        'Label5
        '
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label5.Location = New System.Drawing.Point(8, 136)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(104, 16)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "File Close Date"
        '
        'TxtCloseDate
        '
        Me.TxtCloseDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.CloseDate"))
        Me.TxtCloseDate.Location = New System.Drawing.Point(112, 128)
        Me.TxtCloseDate.Name = "TxtCloseDate"
        Me.TxtCloseDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtCloseDate.TabIndex = 8
        Me.TxtCloseDate.Text = ""
        '
        'CmbMatter
        '
        Me.CmbMatter.Location = New System.Drawing.Point(112, 96)
        Me.CmbMatter.Name = "CmbMatter"
        Me.CmbMatter.Size = New System.Drawing.Size(256, 28)
        Me.CmbMatter.TabIndex = 7
        '
        'Label4
        '
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(8, 104)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(104, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "Matter Type"
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(8, 72)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(104, 16)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Matter Number"
        '
        'TxtMatterNumber
        '
        Me.TxtMatterNumber.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.MatterNo"))
        Me.TxtMatterNumber.Location = New System.Drawing.Point(112, 64)
        Me.TxtMatterNumber.Name = "TxtMatterNumber"
        Me.TxtMatterNumber.Size = New System.Drawing.Size(112, 26)
        Me.TxtMatterNumber.TabIndex = 4
        Me.TxtMatterNumber.Text = ""
        '
        'Label2
        '
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(8, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(104, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Title and Full Name"
        '
        'TxtClient
        '
        Me.TxtClient.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.ClientName"))
        Me.TxtClient.Location = New System.Drawing.Point(112, 32)
        Me.TxtClient.Name = "TxtClient"
        Me.TxtClient.Size = New System.Drawing.Size(176, 26)
        Me.TxtClient.TabIndex = 2
        Me.TxtClient.Text = ""
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(8, 168)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 16)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Originating Office"
        '
        'CmbOffice
        '
        Me.CmbOffice.Location = New System.Drawing.Point(112, 160)
        Me.CmbOffice.Name = "CmbOffice"
        Me.CmbOffice.Size = New System.Drawing.Size(264, 28)
        Me.CmbOffice.TabIndex = 7
        '
        'OleDbSelectCommand3
        '
        Me.OleDbSelectCommand3.CommandText = "SELECT FeeEarnerID, FeeEarnerName FROM FeeEarner"
        Me.OleDbSelectCommand3.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand3
        '
        Me.OleDbInsertCommand3.CommandText = "INSERT INTO FeeEarner(FeeEarnerName) VALUES (?)"
        Me.OleDbInsertCommand3.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, "FeeEarnerName"))
        '
        'OleDbUpdateCommand3
        '
        Me.OleDbUpdateCommand3.CommandText = "UPDATE FeeEarner SET FeeEarnerName = ? WHERE (FeeEarnerID = ?) AND (FeeEarnerName" & _
        " = ? OR ? IS NULL AND FeeEarnerName IS NULL)"
        Me.OleDbUpdateCommand3.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, "FeeEarnerName"))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand3
        '
        Me.OleDbDeleteCommand3.CommandText = "DELETE FROM FeeEarner WHERE (FeeEarnerID = ?) AND (FeeEarnerName = ? OR ? IS NULL" & _
        " AND FeeEarnerName IS NULL)"
        Me.OleDbDeleteCommand3.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand3.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_FeeEarnerName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FeeEarnerName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbFeeEarner
        '
        Me.DbFeeEarner.DeleteCommand = Me.OleDbDeleteCommand3
        Me.DbFeeEarner.InsertCommand = Me.OleDbInsertCommand3
        Me.DbFeeEarner.SelectCommand = Me.OleDbSelectCommand3
        Me.DbFeeEarner.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "FeeEarner", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("FeeEarnerID", "FeeEarnerID"), New System.Data.Common.DataColumnMapping("FeeEarnerName", "FeeEarnerName")})})
        Me.DbFeeEarner.UpdateCommand = Me.OleDbUpdateCommand3
        '
        'OleDbSelectCommand4
        '
        Me.OleDbSelectCommand4.CommandText = "SELECT MatterTypeID, MatterTypeName FROM Matter"
        Me.OleDbSelectCommand4.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand4
        '
        Me.OleDbInsertCommand4.CommandText = "INSERT INTO Matter(MatterTypeName) VALUES (?)"
        Me.OleDbInsertCommand4.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, "MatterTypeName"))
        '
        'OleDbUpdateCommand4
        '
        Me.OleDbUpdateCommand4.CommandText = "UPDATE Matter SET MatterTypeName = ? WHERE (MatterTypeID = ?) AND (MatterTypeName" & _
        " = ? OR ? IS NULL AND MatterTypeName IS NULL)"
        Me.OleDbUpdateCommand4.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, "MatterTypeName"))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand4
        '
        Me.OleDbDeleteCommand4.CommandText = "DELETE FROM Matter WHERE (MatterTypeID = ?) AND (MatterTypeName = ? OR ? IS NULL " & _
        "AND MatterTypeName IS NULL)"
        Me.OleDbDeleteCommand4.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand4.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_MatterTypeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MatterTypeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbMatter
        '
        Me.DbMatter.DeleteCommand = Me.OleDbDeleteCommand4
        Me.DbMatter.InsertCommand = Me.OleDbInsertCommand4
        Me.DbMatter.SelectCommand = Me.OleDbSelectCommand4
        Me.DbMatter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Matter", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("MatterTypeID", "MatterTypeID"), New System.Data.Common.DataColumnMapping("MatterTypeName", "MatterTypeName")})})
        Me.DbMatter.UpdateCommand = Me.OleDbUpdateCommand4
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.Label13)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.CmbStatus)
        Me.GroupBox3.Controls.Add(Me.TxtDestroyDate)
        Me.GroupBox3.Controls.Add(Me.TxtDateRemoved)
        Me.GroupBox3.Controls.Add(Me.TxtStoreDate)
        Me.GroupBox3.Controls.Add(Me.TxtDateIn)
        Me.GroupBox3.Controls.Add(Me.Label7)
        Me.GroupBox3.Controls.Add(Me.TxtBox)
        Me.GroupBox3.Controls.Add(Me.CmbLocation)
        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox3.Location = New System.Drawing.Point(408, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(432, 272)
        Me.GroupBox3.TabIndex = 2
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Storage Details"
        '
        'Label13
        '
        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.Location = New System.Drawing.Point(8, 80)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(72, 16)
        Me.Label13.TabIndex = 13
        Me.Label13.Text = "Status"
        '
        'Label12
        '
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.Location = New System.Drawing.Point(8, 112)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(72, 24)
        Me.Label12.TabIndex = 12
        Me.Label12.Text = "Location"
        '
        'Label11
        '
        Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.Location = New System.Drawing.Point(8, 144)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(72, 16)
        Me.Label11.TabIndex = 11
        Me.Label11.Text = "Date In"
        '
        'Label10
        '
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label10.Location = New System.Drawing.Point(8, 176)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(72, 12)
        Me.Label10.TabIndex = 10
        Me.Label10.Text = "Store Date"
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.Location = New System.Drawing.Point(8, 208)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(80, 12)
        Me.Label9.TabIndex = 9
        Me.Label9.Text = "Date Removed"
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.Location = New System.Drawing.Point(8, 240)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 20)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "Destroy Date"
        '
        'CmbStatus
        '
        Me.CmbStatus.Location = New System.Drawing.Point(88, 72)
        Me.CmbStatus.Name = "CmbStatus"
        Me.CmbStatus.Size = New System.Drawing.Size(320, 28)
        Me.CmbStatus.TabIndex = 6
        '
        'TxtDestroyDate
        '
        Me.TxtDestroyDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.DestroyDate"))
        Me.TxtDestroyDate.Location = New System.Drawing.Point(88, 232)
        Me.TxtDestroyDate.Name = "TxtDestroyDate"
        Me.TxtDestroyDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtDestroyDate.TabIndex = 5
        Me.TxtDestroyDate.Text = ""
        '
        'TxtDateRemoved
        '
        Me.TxtDateRemoved.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.RemoveDate"))
        Me.TxtDateRemoved.Location = New System.Drawing.Point(88, 200)
        Me.TxtDateRemoved.Name = "TxtDateRemoved"
        Me.TxtDateRemoved.Size = New System.Drawing.Size(96, 26)
        Me.TxtDateRemoved.TabIndex = 4
        Me.TxtDateRemoved.Text = ""
        '
        'TxtStoreDate
        '
        Me.TxtStoreDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.StoreDate"))
        Me.TxtStoreDate.Location = New System.Drawing.Point(88, 168)
        Me.TxtStoreDate.Name = "TxtStoreDate"
        Me.TxtStoreDate.Size = New System.Drawing.Size(96, 26)
        Me.TxtStoreDate.TabIndex = 3
        Me.TxtStoreDate.Text = ""
        '
        'TxtDateIn
        '
        Me.TxtDateIn.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.DateIn"))
        Me.TxtDateIn.Location = New System.Drawing.Point(88, 136)
        Me.TxtDateIn.Name = "TxtDateIn"
        Me.TxtDateIn.Size = New System.Drawing.Size(96, 26)
        Me.TxtDateIn.TabIndex = 2
        Me.TxtDateIn.Text = ""
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.Location = New System.Drawing.Point(8, 40)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 32)
        Me.Label7.TabIndex = 1
        Me.Label7.Text = "Box Number"
        '
        'TxtBox
        '
        Me.TxtBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.BoxNumber"))
        Me.TxtBox.Location = New System.Drawing.Point(88, 40)
        Me.TxtBox.Name = "TxtBox"
        Me.TxtBox.Size = New System.Drawing.Size(104, 26)
        Me.TxtBox.TabIndex = 0
        Me.TxtBox.Text = ""
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.BtnPrevious)
        Me.GroupBox4.Controls.Add(Me.BtnNext)
        Me.GroupBox4.Controls.Add(Me.Button3)
        Me.GroupBox4.Controls.Add(Me.BtnLast)
        Me.GroupBox4.Controls.Add(Me.BtnFirst)
        Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.GroupBox4.Location = New System.Drawing.Point(408, 280)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(432, 128)
        Me.GroupBox4.TabIndex = 3
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Record Navigation"
        '
        'BtnPrevious
        '
        Me.BtnPrevious.Location = New System.Drawing.Point(80, 80)
        Me.BtnPrevious.Name = "BtnPrevious"
        Me.BtnPrevious.Size = New System.Drawing.Size(40, 24)
        Me.BtnPrevious.TabIndex = 4
        Me.BtnPrevious.Text = "<"
        '
        'BtnNext
        '
        Me.BtnNext.Location = New System.Drawing.Point(192, 80)
        Me.BtnNext.Name = "BtnNext"
        Me.BtnNext.Size = New System.Drawing.Size(40, 24)
        Me.BtnNext.TabIndex = 3
        Me.BtnNext.Text = ">"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(120, 80)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 24)
        Me.Button3.TabIndex = 2
        Me.Button3.Text = "Search"
        '
        'BtnLast
        '
        Me.BtnLast.Location = New System.Drawing.Point(232, 80)
        Me.BtnLast.Name = "BtnLast"
        Me.BtnLast.Size = New System.Drawing.Size(40, 24)
        Me.BtnLast.TabIndex = 1
        Me.BtnLast.Text = ">>"
        '
        'BtnFirst
        '
        Me.BtnFirst.Location = New System.Drawing.Point(40, 80)
        Me.BtnFirst.Name = "BtnFirst"
        Me.BtnFirst.Size = New System.Drawing.Size(40, 24)
        Me.BtnFirst.TabIndex = 0
        Me.BtnFirst.Text = "<<"
        '
        'OleDbSelectCommand5
        '
        Me.OleDbSelectCommand5.CommandText = "SELECT StorageID, StorageName FROM Status"
        Me.OleDbSelectCommand5.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand5
        '
        Me.OleDbInsertCommand5.CommandText = "INSERT INTO Status(StorageName) VALUES (?)"
        Me.OleDbInsertCommand5.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, "StorageName"))
        '
        'OleDbUpdateCommand5
        '
        Me.OleDbUpdateCommand5.CommandText = "UPDATE Status SET StorageName = ? WHERE (StorageID = ?) AND (StorageName = ? OR ?" & _
        " IS NULL AND StorageName IS NULL)"
        Me.OleDbUpdateCommand5.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, "StorageName"))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand5
        '
        Me.OleDbDeleteCommand5.CommandText = "DELETE FROM Status WHERE (StorageID = ?) AND (StorageName = ? OR ? IS NULL AND St" & _
        "orageName IS NULL)"
        Me.OleDbDeleteCommand5.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand5.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_StorageName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "StorageName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbStatus
        '
        Me.DbStatus.DeleteCommand = Me.OleDbDeleteCommand5
        Me.DbStatus.InsertCommand = Me.OleDbInsertCommand5
        Me.DbStatus.SelectCommand = Me.OleDbSelectCommand5
        Me.DbStatus.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Status", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("StorageID", "StorageID"), New System.Data.Common.DataColumnMapping("StorageName", "StorageName")})})
        Me.DbStatus.UpdateCommand = Me.OleDbUpdateCommand5
        '
        'OleDbSelectCommand6
        '
        Me.OleDbSelectCommand6.CommandText = "SELECT OfficeID, OfficeName FROM Offices"
        Me.OleDbSelectCommand6.Connection = Me.OleDbConnection1
        '
        'OleDbInsertCommand6
        '
        Me.OleDbInsertCommand6.CommandText = "INSERT INTO Offices(OfficeName) VALUES (?)"
        Me.OleDbInsertCommand6.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, "OfficeName"))
        '
        'OleDbUpdateCommand6
        '
        Me.OleDbUpdateCommand6.CommandText = "UPDATE Offices SET OfficeName = ? WHERE (OfficeID = ?) AND (OfficeName = ? OR ? I" & _
        "S NULL AND OfficeName IS NULL)"
        Me.OleDbUpdateCommand6.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, "OfficeName"))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbDeleteCommand6
        '
        Me.OleDbDeleteCommand6.CommandText = "DELETE FROM Offices WHERE (OfficeID = ?) AND (OfficeName = ? OR ? IS NULL AND Off" & _
        "iceName IS NULL)"
        Me.OleDbDeleteCommand6.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand6.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_OfficeName1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OfficeName", System.Data.DataRowVersion.Original, Nothing))
        '
        'DbOffices
        '
        Me.DbOffices.DeleteCommand = Me.OleDbDeleteCommand6
        Me.DbOffices.InsertCommand = Me.OleDbInsertCommand6
        Me.DbOffices.SelectCommand = Me.OleDbSelectCommand6
        Me.DbOffices.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Offices", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("OfficeID", "OfficeID"), New System.Data.Common.DataColumnMapping("OfficeName", "OfficeName")})})
        Me.DbOffices.UpdateCommand = Me.OleDbUpdateCommand6
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(848, 414)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "Form1"
        Me.Text = "Smith Partnership - File Tracker"
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cm = CType(Me.BindingContext(DataSet11, "Main"), CurrencyManager)
        'Fill Dataset
        DbMain.Fill(DataSet11, "Main")
        DbLocations.Fill(DataSet11, "Locations")
        DbFeeEarner.Fill(DataSet11, "FeeEarner")
        DbMatter.Fill(DataSet11, "Matter")
        DbStatus.Fill(DataSet11, "Status")
        DbOffices.Fill(DataSet11, "Offices")

        'Load Originating Location Combo
        CmbLocation.DataSource = DataSet11.Tables("Locations")
        CmbLocation.DisplayMember = "LocationName"
        CmbLocation.ValueMember = "LocationID"
        CmbLocation.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "LocationID")

        'Load FeeEarner ComboBox
        CmbFeeEarner.DataSource = DataSet11.Tables("FeeEarner")
        CmbFeeEarner.DisplayMember = "FeeEarnerName"
        CmbFeeEarner.ValueMember = "FeeEarnerID"
        CmbFeeEarner.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "FeeEarnerID")

        'Load MatterType Combobox
        CmbMatter.DataSource = DataSet11.Tables("Matter")
        CmbMatter.DisplayMember = "MatterTypeName"
        CmbMatter.ValueMember = "MatterTypeID"
        CmbMatter.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "MatterTypeID")

        'Load Status Combobox
        CmbStatus.DataSource = DataSet11.Tables("Status")
        CmbStatus.DisplayMember = "StorageName"
        CmbStatus.ValueMember = "StorageID"
        CmbStatus.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "StatusID")

        'Load Office Combobox
        CmbOffice.DataSource = DataSet11.Tables("Offices")
        CmbOffice.DisplayMember = "OfficeName"
        CmbOffice.ValueMember = "OfficeID"
        CmbOffice.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "OfficeName")
    End Sub
    Private Sub NavigationButtons_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFirst.Click, BtnLast.Click, BtnNext.Click, BtnPrevious.Click
        Select Case sender.Name
            Case "btnFirst"

                cm.Position = 0

            Case "btnPrevious"

                cm.Position -= 1

            Case "btnNext"

                cm.Position += 1

            Case "btnLast"

                cm.Position = DataSet11.Tables("Main").Rows.Count - 1
        End Select

    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim FrmSearch As Form
        FrmSearch = New Search
        FrmSearch.Show()
    End Sub


End Class
0
 
LVL 25

Accepted Solution

by:
RonaldBiemans earned 2000 total points
ID: 13926254
put this after you have filled the dataset

  cm = CType(Me.BindingContext(DataSet11, "Main"), CurrencyManager)
0
 

Author Comment

by:matt_swinburne
ID: 13926332
Still the same!!
I really dont know what the problem could be, and as far as my research tells me this is the only way to do it.
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926354
Yep I'm a bit stumped too, I'll try some things and see if I can reproduce the problem. I'll be back
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926408
Did you try this aswell, Like I suggested before ?

cm = CType(Me.BindingContext(dataset11.Tables("Main")), CurrencyManager)
0
 

Author Comment

by:matt_swinburne
ID: 13926450
Yaaayyy!! It works.  My fault I had the names for the buttons are Btn not btn etc.


Thanks for the time spent
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926454
Hold the phone, You should test the button with there correct name (they are casesensitive)

your buttons are called BtnFirst not btnFirst etc...
like

 Select Case sender.Name
            Case "BtnFirst"

                cm.Position = 0

            Case "BtnPrevious"

                cm.Position -= 1

            Case "BtnNext"

                cm.Position += 1

            Case "BtnLast"

                cm.Position = DataSet11.Tables("Main").Rows.Count - 1
        End Select
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926462
Seems you found it out too :-)
0
 

Author Comment

by:matt_swinburne
ID: 13926502
haha cheers, for the help but i just noticed that the combo boxes arent updating, any ideas on that?
0
 

Author Comment

by:matt_swinburne
ID: 13926558
Or alternativly to change this coding;

 'Load Office Combobox
        CmbOffice.DataSource = DataSet11.Tables("Offices")
        CmbOffice.DisplayMember = "OfficeName"
        CmbOffice.ValueMember = "OfficeID"
        CmbOffice.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "OfficeName")

To suit a textbox.  Tried just changing the cmbOffice to TxtOffice but got

'ValueMember' is not a member of 'System.Windows.Forms.TextBox'.
DisplayMember and
ValueMember the same
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926566
Yes, you are binding them differently,

the textboxes are binded like this

Me.TxtCloseDate.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "Main.CloseDate"))

where the comboboxes are binding like this

 CmbLocation.DataBindings.Add("selectedvalue", DataSet11.Tables("Main"), "LocationID")

and your currencymanager is this

    cm = CType(Me.BindingContext(DataSet11, "Main"), CurrencyManager)

so only your textboxes will navigate (it looks the same but it isn't, weird he)

so change your combobox bindings to this

 CmbLocation.DataBindings.Add("selectedvalue", DataSet11, "Main.LocationID")






0
 

Author Comment

by:matt_swinburne
ID: 13926695
Strange, well that worked sweeney todd, and will save me a long time converting to textboxes.  However I have become aware that the users wont need to select from the combo boxes and really I would like to disable them so that the user cant select from it.  Any ideas?
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13926749
just disable them

combobox1.enabled = false
0
 

Author Comment

by:matt_swinburne
ID: 13927029
Thanks didnt reeeally want them blanked out but solves problem easily anyway

0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13927146
you could create your own inherited combobox control and overides the painting of the down arrow :-)
0
 

Author Comment

by:matt_swinburne
ID: 13927201
I could.  But then again I probably couldn't.  lol
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 13927283
:-)
0
 

Author Comment

by:matt_swinburne
ID: 14377748
Hi Ronald,
I dont know if I am p*ssing you off keeping asking for help.  But I would Reeally appreciate some help on this question:
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_21481709.html
and it would be the last time I request your help as noone else seems to be able to help.

Matt
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14377816
Hi matt, no ofcourse you are not pissing me off, I just don't know the answer to your question :-)
0
 

Author Comment

by:matt_swinburne
ID: 14377844
lol ok so will you look into it or shall I try other avenues? because I am having a LOT of pressure from my boss and youknow how rubbish I am at this :-)
0
 

Author Comment

by:matt_swinburne
ID: 14377849
(or any advice where I could get help from?_)
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14377901
Just a question, where are you doing this, in word VBA or something else ?
0
 

Author Comment

by:matt_swinburne
ID: 14377910
Word vba
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14377941
I'll have a look but I can't promise anything I'm not that good at VBA :-)
0
 

Author Comment

by:matt_swinburne
ID: 14377987
Any help is MUCH appreciated
0
 

Author Comment

by:matt_swinburne
ID: 14377992
if you need the template or anything just let me know..
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14378015
What version of word ?
0
 

Author Comment

by:matt_swinburne
ID: 14378074
2002.  Perhaps it could have been something to do with the fact the template was created in a different version but I get the same error when I just create a new template myself with the only format being a higher font size than the default
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14378087
Ok I'll have a try :-)
0
 

Author Comment

by:matt_swinburne
ID: 14378187
Thankyou so much!
0
 

Author Comment

by:matt_swinburne
ID: 14379140
I am not sure if you are still working on my problem, :-) but i have to go home now.  I will hopefully speak to you tommorow.

Matt
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14385294
I'm still trying :-)
0
 

Author Comment

by:matt_swinburne
ID: 14385358
Thank you Ronald :-)
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14385973
Hi matt, I'm a bit further :-) (I don't get the filename error anymore)

Question, the template you are trying to copy from is it the normal.dot ?
0
 

Author Comment

by:matt_swinburne
ID: 14386066
no it is a specially made template called commerical.dot.  The format is a bit strange but I will send it to you if you require.  Thank you for all the time you are putting in :-)
0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14386659
Hi Matt, this is what I have found out this far. (just to keep you uptodate :-)

I have it working :-) if I know the styles  that are in use :-( , the problem is that this

For Each oStyle In oSourceDoc.Styles
            ReDim Preserve a_szStyleNames(nLoop)
            a_szStyleNames(nLoop) = oStyle.NameLocal
            nLoop = nLoop + 1
        Next oStyle

tries to copy all the possible styles including the ones that aren't in use, and that is where it fails, I'm now trying to figure out how I can get ony the styles that are in use.

I'll keep you posted, but we are another step further :-)


0
 
LVL 25

Expert Comment

by:RonaldBiemans
ID: 14386691
HI matt,

I GOT IT WORKING, YESSSSSSS :-)

I'l post the solution in the other thread.

0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
this video summaries big data hadoop online training demo (http://onlineitguru.com/big-data-hadoop-online-training-placement.html) , and covers basics in big data hadoop .
This video shows how to quickly and easily deploy an email signature for all users in Office 365 and prevent it from being added to replies and forwards. (the resulting signature is applied on the server level in Exchange Online) The email signat…

862 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question