• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 245
  • Last Modified:

Navigation Buttons

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
matt_swinburne
Asked:
matt_swinburne
  • 25
  • 24
1 Solution
 
RonaldBiemansCommented:
dbmain is the name of your dataset I assume.
how is your dataset filled (could you show the code)
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
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
Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
sorry typo,

 cm.Position = DataSet11.Tables("Main").rows.count - 1
0
 
matt_swinburneAuthor Commented:
Ok Ammeded and no errors, still not cycling through database though.
0
 
RonaldBiemansCommented:
Which table do you want to cycle through ?
0
 
RonaldBiemansCommented:
try changing it to this

            cm = CType(Me.BindingContext(dataset11.tables("Main")), CurrencyManager)
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
is it not cycling at all, or some cycle and some not
0
 
matt_swinburneAuthor Commented:
Not cycling at all - nothing happening - strange cuz no errors
0
 
RonaldBiemansCommented:
could you post the code you have now again, I'll see if I can spot the erro
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
put this after you have filled the dataset

  cm = CType(Me.BindingContext(DataSet11, "Main"), CurrencyManager)
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
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
 
RonaldBiemansCommented:
Did you try this aswell, Like I suggested before ?

cm = CType(Me.BindingContext(dataset11.Tables("Main")), CurrencyManager)
0
 
matt_swinburneAuthor Commented:
Yaaayyy!! It works.  My fault I had the names for the buttons are Btn not btn etc.


Thanks for the time spent
0
 
RonaldBiemansCommented:
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
 
RonaldBiemansCommented:
Seems you found it out too :-)
0
 
matt_swinburneAuthor Commented:
haha cheers, for the help but i just noticed that the combo boxes arent updating, any ideas on that?
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
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
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
just disable them

combobox1.enabled = false
0
 
matt_swinburneAuthor Commented:
Thanks didnt reeeally want them blanked out but solves problem easily anyway

0
 
RonaldBiemansCommented:
you could create your own inherited combobox control and overides the painting of the down arrow :-)
0
 
matt_swinburneAuthor Commented:
I could.  But then again I probably couldn't.  lol
0
 
RonaldBiemansCommented:
:-)
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
Hi matt, no ofcourse you are not pissing me off, I just don't know the answer to your question :-)
0
 
matt_swinburneAuthor Commented:
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
 
matt_swinburneAuthor Commented:
(or any advice where I could get help from?_)
0
 
RonaldBiemansCommented:
Just a question, where are you doing this, in word VBA or something else ?
0
 
matt_swinburneAuthor Commented:
Word vba
0
 
RonaldBiemansCommented:
I'll have a look but I can't promise anything I'm not that good at VBA :-)
0
 
matt_swinburneAuthor Commented:
Any help is MUCH appreciated
0
 
matt_swinburneAuthor Commented:
if you need the template or anything just let me know..
0
 
RonaldBiemansCommented:
What version of word ?
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
Ok I'll have a try :-)
0
 
matt_swinburneAuthor Commented:
Thankyou so much!
0
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
I'm still trying :-)
0
 
matt_swinburneAuthor Commented:
Thank you Ronald :-)
0
 
RonaldBiemansCommented:
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
 
matt_swinburneAuthor Commented:
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
 
RonaldBiemansCommented:
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
 
RonaldBiemansCommented:
HI matt,

I GOT IT WORKING, YESSSSSSS :-)

I'l post the solution in the other thread.

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 25
  • 24
Tackle projects and never again get stuck behind a technical roadblock.
Join Now