"John" <John@nospam.infovis.co.uk> wrote in message
news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
> Hi
>
> I had a working vs 2003 application with access backend. I added a couple
> fields in a table in access db and then to allow user to have access to
> these fields via app I did the following;
>
> 1. Regenerated the data adapter sqls by running the data adapter wizard
> and pasting the resulting code into my app.
>
> 2. Deleted the data adapter correspond to the relevant access table from
> the dataset and re-dragged the table to dataset to have the new fields
> included in the resulting data adapter.
>
> 3. Used below code to bind the windows form field to the underlying table
> field;
>
> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
> txtMyField.DataBindings.Add(db)
>
> Now when I run the app I can view the data in the fields including the new
> ones but if I change any  field and try to save
> (da.Update(ds.tblClients)), I get the below error;
>
> Concurrency violation: the UpdateCommand affected 0 records.
>
> Even though only one user is running the app. What is the problem and how
> can it be fixed?
>
> Thanks
>
> Regards
>

"Miha Markic [MVP C#]" <miha at rthand com> wrote in message
news:uSYLqhBzGHA.1292@TK2MSFTNGP03.phx.gbl...
> Hi John,
>
> Why don't you look at Update command text?
> I bet it is comparing all fields.
> Now, I know that access has problems with datetimes - it sometimes strips
> a part of time and there you go with your concurrency exception.
>
> --
> Miha Markic [MVP C#, INETA Country Leader for Slovenia]
> RightHand .NET consulting & development www.rthand.com
> Blog: http://cs.rthand.com/blogs/blog_with_righthand/
>
> "John" <John@nospam.infovis.co.uk> wrote in message
> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>> Hi
>>
>> I had a working vs 2003 application with access backend. I added a couple
>> fields in a table in access db and then to allow user to have access to
>> these fields via app I did the following;
>>
>> 1. Regenerated the data adapter sqls by running the data adapter wizard
>> and pasting the resulting code into my app.
>>
>> 2. Deleted the data adapter correspond to the relevant access table from
>> the dataset and re-dragged the table to dataset to have the new fields
>> included in the resulting data adapter.
>>
>> 3. Used below code to bind the windows form field to the underlying table
>> field;
>>
>> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
>> txtMyField.DataBindings.Add(db)
>>
>> Now when I run the app I can view the data in the fields including the
>> new ones but if I change any  field and try to save
>> (da.Update(ds.tblClients)), I get the below error;
>>
>> Concurrency violation: the UpdateCommand affected 0 records.
>>
>> Even though only one user is running the app. What is the problem and how
>> can it be fixed?
>>
>> Thanks
>>
>> Regards
>>
>
>

"John" <John@nospam.infovis.co.uk> schreef in bericht
news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
> Hi
>
> I had a working vs 2003 application with access backend. I added a couple
> fields in a table in access db and then to allow user to have access to
> these fields via app I did the following;
>
> 1. Regenerated the data adapter sqls by running the data adapter wizard
> and pasting the resulting code into my app.
>
> 2. Deleted the data adapter correspond to the relevant access table from
> the dataset and re-dragged the table to dataset to have the new fields
> included in the resulting data adapter.
>
> 3. Used below code to bind the windows form field to the underlying table
> field;
>
> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
> txtMyField.DataBindings.Add(db)
>
> Now when I run the app I can view the data in the fields including the new
> ones but if I change any  field and try to save
> (da.Update(ds.tblClients)), I get the below error;
>
> Concurrency violation: the UpdateCommand affected 0 records.
>
> Even though only one user is running the app. What is the problem and how
> can it be fixed?
>
> Thanks
>
> Regards
>

"Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
> John,
>
> Are you using an autonumbering integer and are updating more times. Than
> you have to refresh everytime your dataset after an update with Access.
>
> Cor
>
> "John" <John@nospam.infovis.co.uk> schreef in bericht
> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>> Hi
>>
>> I had a working vs 2003 application with access backend. I added a couple
>> fields in a table in access db and then to allow user to have access to
>> these fields via app I did the following;
>>
>> 1. Regenerated the data adapter sqls by running the data adapter wizard
>> and pasting the resulting code into my app.
>>
>> 2. Deleted the data adapter correspond to the relevant access table from
>> the dataset and re-dragged the table to dataset to have the new fields
>> included in the resulting data adapter.
>>
>> 3. Used below code to bind the windows form field to the underlying table
>> field;
>>
>> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
>> txtMyField.DataBindings.Add(db)
>>
>> Now when I run the app I can view the data in the fields including the
>> new ones but if I change any  field and try to save
>> (da.Update(ds.tblClients)), I get the below error;
>>
>> Concurrency violation: the UpdateCommand affected 0 records.
>>
>> Even though only one user is running the app. What is the problem and how
>> can it be fixed?
>>
>> Thanks
>>
>> Regards
>>
>
>

"John" <John@nospam.infovis.co.uk> schreef in bericht
news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>I have a field ID as access auto number but the data adapter configuration
>wizard seems to have skipped it in its update code. Code below (sorry for
>so much).
>
> I am just updating once as far as I can tell. Also the update code was
> working fine before I just added a couple of new fields and regenerated
> the code using the wizard and pasted it in my app.
>
> Thanks
>
> Regards
>
>  updcomCompanies.CommandText = "UPDATE tblClients SET Account_Reference_No
> = ?, Address = ?, Area = ?, Blocked = " & _
>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
> Client_Notes = " & _
>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No = ?,
> Country = ?, " & _
>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
> Directions = ?," & _
>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
> Financial_Comments = ?, " & _
>        "[Group] = ?, Image_List = ?, Invoice_Address = ?, Invoice_Company
> = ?, Invoice_C" & _
>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
> Modified_By = ?, " & _
>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
> Sort = ?, Source" & _
>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 = ?,
> Staff_Grade_2" & _
>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address = ?,
> Status = ?, S" & _
>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
> Uniforms_Needed " & _
>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
> Venture_Debtor_No = ?," & _
>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS NULL
> AND Account_R" & _
>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address IS
> NULL) AND (Are" & _
>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
> (Blocked_Date = ? OR " & _
>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ? OR
> ? IS NULL AND" & _
>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
> Company IS NULL) " & _
>        "AND (Company_Registration_No = ? OR ? IS NULL AND
> Company_Registration_No IS NUL" & _
>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (County
> = ? OR ? IS NU" & _
>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
> Created_By IS NULL) " & _
>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
> (Date_Modified " & _
>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ? IS
> NULL AND EMai" & _
>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
> Fax IS NULL) AND" & _
>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
> (Invoice_Address = ? OR ? IS" & _
>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ?
> IS NULL AND Inv" & _
>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
> Invoice_Country " & _
>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County
> IS NULL) AND (I" & _
>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL) AND
> (Modified_By " & _
>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ? IS
> NULL AND Paren" & _
>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms
> IS NULL) AND (P" & _
>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
> NULL) AND (Sort" & _
>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
> AND Source IS N" & _
>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
> AND (Staff_Grade" & _
>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
> (Staff_Grade_4 = ?) " & _
>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
> NULL) AND (Stat" & _
>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR ?
> IS NULL AND St" & _
>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
> Supplier_No IS NULL) AN" & _
>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
> NULL AND TempID" & _
>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
> (Uniforms_Needed = ? " & _
>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
> (Uniforms_Needed_Elite = ? OR ? IS" & _
>        " NULL AND Uniforms_Needed_Elite IS NULL) AND (Uniforms_Needed_Tech
> = ? OR ? IS N" & _
>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ?
> OR ? IS NULL AN" & _
>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS
> NULL)"
>        Me.updcomCompanies.Connection = dbConContacts
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Account_Reference_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Address",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Area",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked",
> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Department",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Blocked_Reason",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Notes",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Client_Specifics",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Company_Registration_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Country",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("County",
> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Created_By",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Date_Created",
> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Date_Modified",
> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Directions",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Elite_Client",
> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("EMail",
> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Event_Notes",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Fax",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Financial_Comments",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Group",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Image_List",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_County",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Map",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Modified_By",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Parent",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Payment_Terms",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("People_Client",
> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Sort",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Source",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Source_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Special_Requirments",
> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Statement_Address",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Status",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Status_Date",
> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Supplier_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Tel",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("TempID",
> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Type",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Web",
> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Area",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Area1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Country1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_County",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_County1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Created_By",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Created_By1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Created",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_EMail",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_EMail1",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Fax1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Group",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Group1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modified_By",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Parent",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Parent1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_People_Client",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Postcode",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Postcode1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Sort",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Sort1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Source",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Source1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Source_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
> System.Data.OleDb.OleDbType.Boolean, 2,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Statement_Address", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status_Date",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
> System.Data.OleDb.OleDbType.DBDate, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Tel1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_TempID",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_TempID1",
> System.Data.OleDb.OleDbType.Integer, 0,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Type",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Type1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
> System.Data.OleDb.OleDbType.VarWChar, 255,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
> Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
> System.Data.OleDb.OleDbType.VarWChar, 50,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>        Me.updcomCompanies.Parameters.Add(New
> System.Data.OleDb.OleDbParameter("Original_Web1",
> System.Data.OleDb.OleDbType.VarWChar, 80,
> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>
> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>> John,
>>
>> Are you using an autonumbering integer and are updating more times. Than
>> you have to refresh everytime your dataset after an update with Access.
>>
>> Cor
>>
>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>> Hi
>>>
>>> I had a working vs 2003 application with access backend. I added a
>>> couple fields in a table in access db and then to allow user to have
>>> access to these fields via app I did the following;
>>>
>>> 1. Regenerated the data adapter sqls by running the data adapter wizard
>>> and pasting the resulting code into my app.
>>>
>>> 2. Deleted the data adapter correspond to the relevant access table from
>>> the dataset and re-dragged the table to dataset to have the new fields
>>> included in the resulting data adapter.
>>>
>>> 3. Used below code to bind the windows form field to the underlying
>>> table field;
>>>
>>> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
>>> txtMyField.DataBindings.Add(db)
>>>
>>> Now when I run the app I can view the data in the fields including the
>>> new ones but if I change any  field and try to save
>>> (da.Update(ds.tblClients)), I get the below error;
>>>
>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>
>>> Even though only one user is running the app. What is the problem and
>>> how can it be fixed?
>>>
>>> Thanks
>>>
>>> Regards
>>>
>>
>>
>
>

"Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
> John,
>
> I did not count them exact. You know that the wizards can handle maxium
> 100 fields?
>
> Cor
>
> "John" <John@nospam.infovis.co.uk> schreef in bericht
> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>>I have a field ID as access auto number but the data adapter configuration
>>wizard seems to have skipped it in its update code. Code below (sorry for
>>so much).
>>
>> I am just updating once as far as I can tell. Also the update code was
>> working fine before I just added a couple of new fields and regenerated
>> the code using the wizard and pasted it in my app.
>>
>> Thanks
>>
>> Regards
>>
>>  updcomCompanies.CommandText = "UPDATE tblClients SET
>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
>> Client_Notes = " & _
>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No =
>> ?, Country = ?, " & _
>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
>> Directions = ?," & _
>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
>> Financial_Comments = ?, " & _
>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?, Invoice_Company
>> = ?, Invoice_C" & _
>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
>> Modified_By = ?, " & _
>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
>> Sort = ?, Source" & _
>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
>> ?, Staff_Grade_2" & _
>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
>> ?, Status = ?, S" & _
>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
>> Uniforms_Needed " & _
>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
>> Venture_Debtor_No = ?," & _
>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
>> NULL AND Account_R" & _
>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address IS
>> NULL) AND (Are" & _
>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
>> (Blocked_Date = ? OR " & _
>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
>> OR ? IS NULL AND" & _
>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
>> Company IS NULL) " & _
>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
>> Company_Registration_No IS NUL" & _
>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND (County
>> = ? OR ? IS NU" & _
>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
>> Created_By IS NULL) " & _
>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
>> (Date_Modified " & _
>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
>> IS NULL AND EMai" & _
>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
>> Fax IS NULL) AND" & _
>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
>> (Invoice_Address = ? OR ? IS" & _
>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ?
>> IS NULL AND Inv" & _
>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
>> Invoice_Country " & _
>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County
>> IS NULL) AND (I" & _
>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
>> AND (Modified_By " & _
>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ? IS
>> NULL AND Paren" & _
>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms
>> IS NULL) AND (P" & _
>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
>> NULL) AND (Sort" & _
>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
>> AND Source IS N" & _
>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
>> AND (Staff_Grade" & _
>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
>> (Staff_Grade_4 = ?) " & _
>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
>> NULL) AND (Stat" & _
>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR ?
>> IS NULL AND St" & _
>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
>> Supplier_No IS NULL) AN" & _
>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
>> NULL AND TempID" & _
>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
>> (Uniforms_Needed = ? " & _
>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
>> (Uniforms_Needed_Elite = ? OR ? IS" & _
>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ?
>> OR ? IS NULL AN" & _
>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web IS
>> NULL)"
>>        Me.updcomCompanies.Connection = dbConContacts
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Address",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Area",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Client_Notes",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Company",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Country",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("County",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Created_By",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Date_Created",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Date_Modified",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Directions",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Elite_Client",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("EMail",
>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Event_Notes",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Fax",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Financial_Comments",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Group",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Image_List",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Invoice_Address",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Invoice_Company",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Invoice_Country",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Invoice_County",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Map",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Modified_By",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Parent",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Payment_Terms",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("People_Client",
>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Postcode",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Sort",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Source",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Source_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Special_Requirments",
>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Statement_Address",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Status",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Status_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Supplier_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Tel",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("TempID",
>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Type",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Web",
>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Address",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Address1",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Area",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Area1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Blocked",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Company",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Company1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Country",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Country1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_County",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_County1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Created_By",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Created_By1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Date_Created",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_EMail",
>> System.Data.OleDb.OleDbType.VarWChar, 80,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_EMail1",
>> System.Data.OleDb.OleDbType.VarWChar, 80,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Fax",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Fax1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Group",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Group1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Modified_By",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Parent",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Parent1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_People_Client",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Postcode",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Postcode1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Sort",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Sort1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Source",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Source1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Source_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
>> System.Data.OleDb.OleDbType.Boolean, 2,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Status",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Status1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Status_Date",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
>> System.Data.OleDb.OleDbType.DBDate, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Tel",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Tel1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_TempID",
>> System.Data.OleDb.OleDbType.Integer, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_TempID1",
>> System.Data.OleDb.OleDbType.Integer, 0,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Type",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Type1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
>> System.Data.OleDb.OleDbType.VarWChar, 255,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
>> System.Data.OleDb.OleDbType.VarWChar, 50,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>> Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Web",
>> System.Data.OleDb.OleDbType.VarWChar, 80,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>        Me.updcomCompanies.Parameters.Add(New
>> System.Data.OleDb.OleDbParameter("Original_Web1",
>> System.Data.OleDb.OleDbType.VarWChar, 80,
>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>
>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>>> John,
>>>
>>> Are you using an autonumbering integer and are updating more times. Than
>>> you have to refresh everytime your dataset after an update with Access.
>>>
>>> Cor
>>>
>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>>> Hi
>>>>
>>>> I had a working vs 2003 application with access backend. I added a
>>>> couple fields in a table in access db and then to allow user to have
>>>> access to these fields via app I did the following;
>>>>
>>>> 1. Regenerated the data adapter sqls by running the data adapter wizard
>>>> and pasting the resulting code into my app.
>>>>
>>>> 2. Deleted the data adapter correspond to the relevant access table
>>>> from the dataset and re-dragged the table to dataset to have the new
>>>> fields included in the resulting data adapter.
>>>>
>>>> 3. Used below code to bind the windows form field to the underlying
>>>> table field;
>>>>
>>>> db = New System.Windows.Forms.Binding("Text", ds, "tblClients.MyField")
>>>> txtMyField.DataBindings.Add(db)
>>>>
>>>> Now when I run the app I can view the data in the fields including the
>>>> new ones but if I change any  field and try to save
>>>> (da.Update(ds.tblClients)), I get the below error;
>>>>
>>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>>
>>>> Even though only one user is running the app. What is the problem and
>>>> how can it be fixed?
>>>>
>>>> Thanks
>>>>
>>>> Regards
>>>>
>>>
>>>
>>
>>
>
>

"John" <John@nospam.infovis.co.uk> schreef in bericht
news:eti$GZEzGHA.4796@TK2MSFTNGP06.phx.gbl...
> Only about 56 or so fields in the actual table.
>
> Thanks
>
> Regards
>
> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
> news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
>> John,
>>
>> I did not count them exact. You know that the wizards can handle maxium
>> 100 fields?
>>
>> Cor
>>
>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>>>I have a field ID as access auto number but the data adapter
>>>configuration wizard seems to have skipped it in its update code. Code
>>>below (sorry for so much).
>>>
>>> I am just updating once as far as I can tell. Also the update code was
>>> working fine before I just added a couple of new fields and regenerated
>>> the code using the wizard and pasted it in my app.
>>>
>>> Thanks
>>>
>>> Regards
>>>
>>>  updcomCompanies.CommandText = "UPDATE tblClients SET
>>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
>>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason = ?,
>>> Client_Notes = " & _
>>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No =
>>> ?, Country = ?, " & _
>>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified = ?,
>>> Directions = ?," & _
>>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
>>> Financial_Comments = ?, " & _
>>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?,
>>> Invoice_Company = ?, Invoice_C" & _
>>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
>>> Modified_By = ?, " & _
>>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
>>> Sort = ?, Source" & _
>>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
>>> ?, Staff_Grade_2" & _
>>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
>>> ?, Status = ?, S" & _
>>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
>>> Uniforms_Needed " & _
>>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
>>> Venture_Debtor_No = ?," & _
>>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
>>> NULL AND Account_R" & _
>>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
>>> IS NULL) AND (Are" & _
>>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
>>> (Blocked_Date = ? OR " & _
>>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
>>> OR ? IS NULL AND" & _
>>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
>>> Company IS NULL) " & _
>>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
>>> Company_Registration_No IS NUL" & _
>>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
>>> (County = ? OR ? IS NU" & _
>>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
>>> Created_By IS NULL) " & _
>>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL) AND
>>> (Date_Modified " & _
>>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
>>> IS NULL AND EMai" & _
>>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
>>> Fax IS NULL) AND" & _
>>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
>>> (Invoice_Address = ? OR ? IS" & _
>>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR ?
>>> IS NULL AND Inv" & _
>>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
>>> Invoice_Country " & _
>>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND Invoice_County
>>> IS NULL) AND (I" & _
>>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
>>> AND (Modified_By " & _
>>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
>>> IS NULL AND Paren" & _
>>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND Payment_Terms
>>> IS NULL) AND (P" & _
>>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode IS
>>> NULL) AND (Sort" & _
>>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS NULL
>>> AND Source IS N" & _
>>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
>>> AND (Staff_Grade" & _
>>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
>>> (Staff_Grade_4 = ?) " & _
>>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address IS
>>> NULL) AND (Stat" & _
>>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR
>>> ? IS NULL AND St" & _
>>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
>>> Supplier_No IS NULL) AN" & _
>>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ? IS
>>> NULL AND TempID" & _
>>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
>>> (Uniforms_Needed = ? " & _
>>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
>>> (Uniforms_Needed_Elite = ? OR ? IS" & _
>>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
>>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
>>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No = ?
>>> OR ? IS NULL AN" & _
>>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
>>> IS NULL)"
>>>        Me.updcomCompanies.Connection = dbConContacts
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Area",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Blocked",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Client_Notes",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Company",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Country",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("County",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Created_By",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Date_Created",
>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Date_Modified",
>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Directions",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Elite_Client",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("EMail",
>>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Event_Notes",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Fax",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Financial_Comments",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Group",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Image_List",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Invoice_Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Invoice_Company",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Invoice_Country",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Invoice_County",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Map",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Modified_By",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Parent",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Payment_Terms",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("People_Client",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Postcode",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Sort",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Source",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Source_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Special_Requirments",
>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Statement_Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Status",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Status_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Supplier_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Tel",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("TempID",
>>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Type",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Web",
>>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>>>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Address1",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Area",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Area1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Blocked",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Company",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Company1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Country",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Country1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_County",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_County1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Created_By",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Created_By1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Date_Created",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_EMail",
>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_EMail1",
>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Fax",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Fax1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Group",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Group1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Modified_By",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Parent",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Parent1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_People_Client",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Postcode",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Postcode1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Sort",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Sort1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Source",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Source1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Source_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Status",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Status1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Status_Date",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Tel",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Tel1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_TempID",
>>> System.Data.OleDb.OleDbType.Integer, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_TempID1",
>>> System.Data.OleDb.OleDbType.Integer, 0,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Type",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Type1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>> Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Web",
>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>        Me.updcomCompanies.Parameters.Add(New
>>> System.Data.OleDb.OleDbParameter("Original_Web1",
>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>
>>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>>> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>>>> John,
>>>>
>>>> Are you using an autonumbering integer and are updating more times.
>>>> Than you have to refresh everytime your dataset after an update with
>>>> Access.
>>>>
>>>> Cor
>>>>
>>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>>>> Hi
>>>>>
>>>>> I had a working vs 2003 application with access backend. I added a
>>>>> couple fields in a table in access db and then to allow user to have
>>>>> access to these fields via app I did the following;
>>>>>
>>>>> 1. Regenerated the data adapter sqls by running the data adapter
>>>>> wizard and pasting the resulting code into my app.
>>>>>
>>>>> 2. Deleted the data adapter correspond to the relevant access table
>>>>> from the dataset and re-dragged the table to dataset to have the new
>>>>> fields included in the resulting data adapter.
>>>>>
>>>>> 3. Used below code to bind the windows form field to the underlying
>>>>> table field;
>>>>>
>>>>> db = New System.Windows.Forms.Binding("Text", ds,
>>>>> "tblClients.MyField")
>>>>> txtMyField.DataBindings.Add(db)
>>>>>
>>>>> Now when I run the app I can view the data in the fields including the
>>>>> new ones but if I change any  field and try to save
>>>>> (da.Update(ds.tblClients)), I get the below error;
>>>>>
>>>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>>>
>>>>> Even though only one user is running the app. What is the problem and
>>>>> how can it be fixed?
>>>>>
>>>>> Thanks
>>>>>
>>>>> Regards
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

"Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
news:OnQRWdEzGHA.4932@TK2MSFTNGP02.phx.gbl...
> What were the names of the fields that you did add?
>
> I am not good in SQL transactcode therefore fieldnames as type give me
> always not such a well idea.
>
> Cor
>
> "John" <John@nospam.infovis.co.uk> schreef in bericht
> news:eti$GZEzGHA.4796@TK2MSFTNGP06.phx.gbl...
>> Only about 56 or so fields in the actual table.
>>
>> Thanks
>>
>> Regards
>>
>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>> news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
>>> John,
>>>
>>> I did not count them exact. You know that the wizards can handle maxium
>>> 100 fields?
>>>
>>> Cor
>>>
>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>>>>I have a field ID as access auto number but the data adapter
>>>>configuration wizard seems to have skipped it in its update code. Code
>>>>below (sorry for so much).
>>>>
>>>> I am just updating once as far as I can tell. Also the update code was
>>>> working fine before I just added a couple of new fields and regenerated
>>>> the code using the wizard and pasted it in my app.
>>>>
>>>> Thanks
>>>>
>>>> Regards
>>>>
>>>>  updcomCompanies.CommandText = "UPDATE tblClients SET
>>>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
>>>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason =
>>>> ?, Client_Notes = " & _
>>>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No =
>>>> ?, Country = ?, " & _
>>>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified =
>>>> ?, Directions = ?," & _
>>>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
>>>> Financial_Comments = ?, " & _
>>>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?,
>>>> Invoice_Company = ?, Invoice_C" & _
>>>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
>>>> Modified_By = ?, " & _
>>>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
>>>> Sort = ?, Source" & _
>>>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
>>>> ?, Staff_Grade_2" & _
>>>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
>>>> ?, Status = ?, S" & _
>>>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
>>>> Uniforms_Needed " & _
>>>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
>>>> Venture_Debtor_No = ?," & _
>>>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
>>>> NULL AND Account_R" & _
>>>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
>>>> IS NULL) AND (Are" & _
>>>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
>>>> (Blocked_Date = ? OR " & _
>>>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
>>>> OR ? IS NULL AND" & _
>>>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
>>>> Company IS NULL) " & _
>>>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
>>>> Company_Registration_No IS NUL" & _
>>>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
>>>> (County = ? OR ? IS NU" & _
>>>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
>>>> Created_By IS NULL) " & _
>>>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
>>>> AND (Date_Modified " & _
>>>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
>>>> IS NULL AND EMai" & _
>>>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
>>>> Fax IS NULL) AND" & _
>>>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
>>>> (Invoice_Address = ? OR ? IS" & _
>>>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR
>>>> ? IS NULL AND Inv" & _
>>>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
>>>> Invoice_Country " & _
>>>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND
>>>> Invoice_County IS NULL) AND (I" & _
>>>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
>>>> AND (Modified_By " & _
>>>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
>>>> IS NULL AND Paren" & _
>>>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND
>>>> Payment_Terms IS NULL) AND (P" & _
>>>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode
>>>> IS NULL) AND (Sort" & _
>>>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS
>>>> NULL AND Source IS N" & _
>>>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
>>>> AND (Staff_Grade" & _
>>>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
>>>> (Staff_Grade_4 = ?) " & _
>>>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address
>>>> IS NULL) AND (Stat" & _
>>>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR
>>>> ? IS NULL AND St" & _
>>>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
>>>> Supplier_No IS NULL) AN" & _
>>>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ?
>>>> IS NULL AND TempID" & _
>>>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
>>>> (Uniforms_Needed = ? " & _
>>>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
>>>> (Uniforms_Needed_Elite = ? OR ? IS" & _
>>>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
>>>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
>>>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No =
>>>> ? OR ? IS NULL AN" & _
>>>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
>>>> IS NULL)"
>>>>        Me.updcomCompanies.Connection = dbConContacts
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Area",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Client_Notes",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Created_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Date_Created",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Date_Modified",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Directions",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Elite_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("EMail",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Event_Notes",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Fax",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Financial_Comments",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Group",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Image_List",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Map",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Modified_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Parent",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Payment_Terms",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("People_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Sort",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Source",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Source_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Special_Requirments",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Statement_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Status",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Status_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Supplier_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Tel",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("TempID",
>>>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Type",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Web",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>>>>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Area",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Area1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Country1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_County1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Created_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Created_By1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_EMail",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_EMail1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Fax",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Fax1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Group",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Group1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Parent",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Parent1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_People_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Postcode1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Sort",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Sort1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Tel",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Tel1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_TempID",
>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_TempID1",
>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Type",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Type1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Web",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Web1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>
>>>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>>>> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>>>>> John,
>>>>>
>>>>> Are you using an autonumbering integer and are updating more times.
>>>>> Than you have to refresh everytime your dataset after an update with
>>>>> Access.
>>>>>
>>>>> Cor
>>>>>
>>>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>>>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>>>>> Hi
>>>>>>
>>>>>> I had a working vs 2003 application with access backend. I added a
>>>>>> couple fields in a table in access db and then to allow user to have
>>>>>> access to these fields via app I did the following;
>>>>>>
>>>>>> 1. Regenerated the data adapter sqls by running the data adapter
>>>>>> wizard and pasting the resulting code into my app.
>>>>>>
>>>>>> 2. Deleted the data adapter correspond to the relevant access table
>>>>>> from the dataset and re-dragged the table to dataset to have the new
>>>>>> fields included in the resulting data adapter.
>>>>>>
>>>>>> 3. Used below code to bind the windows form field to the underlying
>>>>>> table field;
>>>>>>
>>>>>> db = New System.Windows.Forms.Binding("Text", ds,
>>>>>> "tblClients.MyField")
>>>>>> txtMyField.DataBindings.Add(db)
>>>>>>
>>>>>> Now when I run the app I can view the data in the fields including
>>>>>> the new ones but if I change any  field and try to save
>>>>>> (da.Update(ds.tblClients)), I get the below error;
>>>>>>
>>>>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>>>>
>>>>>> Even though only one user is running the app. What is the problem and
>>>>>> how can it be fixed?
>>>>>>
>>>>>> Thanks
>>>>>>
>>>>>> Regards
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

"John" <John@nospam.infovis.co.uk> schreef in bericht
news:%23xvvvYFzGHA.1268@TK2MSFTNGP02.phx.gbl...
> Uniforms_Needed_Elite txt 255
> Uniforms_Needed_Tech txt 255
> Client_Specifics Memo  (this one has not turned up in parameters possibly
> because it is a memo)
>
> Thanks
>
> Regards
>
>
> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
> news:OnQRWdEzGHA.4932@TK2MSFTNGP02.phx.gbl...
>> What were the names of the fields that you did add?
>>
>> I am not good in SQL transactcode therefore fieldnames as type give me
>> always not such a well idea.
>>
>> Cor
>>
>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>> news:eti$GZEzGHA.4796@TK2MSFTNGP06.phx.gbl...
>>> Only about 56 or so fields in the actual table.
>>>
>>> Thanks
>>>
>>> Regards
>>>
>>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>>> news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
>>>> John,
>>>>
>>>> I did not count them exact. You know that the wizards can handle maxium
>>>> 100 fields?
>>>>
>>>> Cor
>>>>
>>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>>> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>>>>>I have a field ID as access auto number but the data adapter
>>>>>configuration wizard seems to have skipped it in its update code. Code
>>>>>below (sorry for so much).
>>>>>
>>>>> I am just updating once as far as I can tell. Also the update code was
>>>>> working fine before I just added a couple of new fields and
>>>>> regenerated the code using the wizard and pasted it in my app.
>>>>>
>>>>> Thanks
>>>>>
>>>>> Regards
>>>>>
>>>>>  updcomCompanies.CommandText = "UPDATE tblClients SET
>>>>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
>>>>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason =
>>>>> ?, Client_Notes = " & _
>>>>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No
>>>>> = ?, Country = ?, " & _
>>>>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified =
>>>>> ?, Directions = ?," & _
>>>>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
>>>>> Financial_Comments = ?, " & _
>>>>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?,
>>>>> Invoice_Company = ?, Invoice_C" & _
>>>>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
>>>>> Modified_By = ?, " & _
>>>>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode =
>>>>> ?, Sort = ?, Source" & _
>>>>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1
>>>>> = ?, Staff_Grade_2" & _
>>>>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address
>>>>> = ?, Status = ?, S" & _
>>>>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type =
>>>>> ?, Uniforms_Needed " & _
>>>>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
>>>>> Venture_Debtor_No = ?," & _
>>>>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
>>>>> NULL AND Account_R" & _
>>>>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
>>>>> IS NULL) AND (Are" & _
>>>>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
>>>>> (Blocked_Date = ? OR " & _
>>>>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department =
>>>>> ? OR ? IS NULL AND" & _
>>>>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
>>>>> Company IS NULL) " & _
>>>>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
>>>>> Company_Registration_No IS NUL" & _
>>>>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
>>>>> (County = ? OR ? IS NU" & _
>>>>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
>>>>> Created_By IS NULL) " & _
>>>>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
>>>>> AND (Date_Modified " & _
>>>>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR
>>>>> ? IS NULL AND EMai" & _
>>>>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL
>>>>> AND Fax IS NULL) AND" & _
>>>>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
>>>>> (Invoice_Address = ? OR ? IS" & _
>>>>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR
>>>>> ? IS NULL AND Inv" & _
>>>>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL
>>>>> AND Invoice_Country " & _
>>>>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND
>>>>> Invoice_County IS NULL) AND (I" & _
>>>>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
>>>>> AND (Modified_By " & _
>>>>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
>>>>> IS NULL AND Paren" & _
>>>>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND
>>>>> Payment_Terms IS NULL) AND (P" & _
>>>>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode
>>>>> IS NULL) AND (Sort" & _
>>>>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS
>>>>> NULL AND Source IS N" & _
>>>>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS
>>>>> NULL) AND (Staff_Grade" & _
>>>>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
>>>>> (Staff_Grade_4 = ?) " & _
>>>>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address
>>>>> IS NULL) AND (Stat" & _
>>>>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ?
>>>>> OR ? IS NULL AND St" & _
>>>>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
>>>>> Supplier_No IS NULL) AN" & _
>>>>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ?
>>>>> IS NULL AND TempID" & _
>>>>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
>>>>> (Uniforms_Needed = ? " & _
>>>>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
>>>>> (Uniforms_Needed_Elite = ? OR ? IS" & _
>>>>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
>>>>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
>>>>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No =
>>>>> ? OR ? IS NULL AN" & _
>>>>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
>>>>> IS NULL)"
>>>>>        Me.updcomCompanies.Connection = dbConContacts
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Area",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Blocked",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Client_Notes",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Company",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Country",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("County",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Created_By",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Date_Created",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Date_Modified",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Directions",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Elite_Client",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("EMail",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Event_Notes",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Fax",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Financial_Comments",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Group",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Image_List",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Invoice_Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Invoice_Company",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Invoice_Country",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Invoice_County",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Map",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Modified_By",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Parent",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Payment_Terms",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("People_Client",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Postcode",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Sort",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Source",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Source_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Special_Requirments",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Statement_Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Status",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Status_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Supplier_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Tel",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("TempID",
>>>>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Type",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Web",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>>>>>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Address1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Area",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Area1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Blocked",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Company",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Company1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Country",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Country1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_County",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_County1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Created_By",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Created_By1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_EMail",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_EMail1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Fax",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Fax1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Group",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Group1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Parent",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Parent1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_People_Client",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Postcode",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Postcode1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Sort",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Sort1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Source",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Source1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
>>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Status",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Status1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
>>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Tel",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Tel1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_TempID",
>>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_TempID1",
>>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Type",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Type1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>>> Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Web",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>>        Me.updcomCompanies.Parameters.Add(New
>>>>> System.Data.OleDb.OleDbParameter("Original_Web1",
>>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>>
>>>>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>>>>> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>>>>>> John,
>>>>>>
>>>>>> Are you using an autonumbering integer and are updating more times.
>>>>>> Than you have to refresh everytime your dataset after an update with
>>>>>> Access.
>>>>>>
>>>>>> Cor
>>>>>>
>>>>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>>>>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>>>>>> Hi
>>>>>>>
>>>>>>> I had a working vs 2003 application with access backend. I added a
>>>>>>> couple fields in a table in access db and then to allow user to have
>>>>>>> access to these fields via app I did the following;
>>>>>>>
>>>>>>> 1. Regenerated the data adapter sqls by running the data adapter
>>>>>>> wizard and pasting the resulting code into my app.
>>>>>>>
>>>>>>> 2. Deleted the data adapter correspond to the relevant access table
>>>>>>> from the dataset and re-dragged the table to dataset to have the new
>>>>>>> fields included in the resulting data adapter.
>>>>>>>
>>>>>>> 3. Used below code to bind the windows form field to the underlying
>>>>>>> table field;
>>>>>>>
>>>>>>> db = New System.Windows.Forms.Binding("Text", ds,
>>>>>>> "tblClients.MyField")
>>>>>>> txtMyField.DataBindings.Add(db)
>>>>>>>
>>>>>>> Now when I run the app I can view the data in the fields including
>>>>>>> the new ones but if I change any  field and try to save
>>>>>>> (da.Update(ds.tblClients)), I get the below error;
>>>>>>>
>>>>>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>>>>>
>>>>>>> Even though only one user is running the app. What is the problem
>>>>>>> and how can it be fixed?
>>>>>>>
>>>>>>> Thanks
>>>>>>>
>>>>>>> Regards
>>>>>>>
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

"Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
news:OnQRWdEzGHA.4932@TK2MSFTNGP02.phx.gbl...
> What were the names of the fields that you did add?
>
> I am not good in SQL transactcode therefore fieldnames as type give me
> always not such a well idea.
>
> Cor
>
> "John" <John@nospam.infovis.co.uk> schreef in bericht
> news:eti$GZEzGHA.4796@TK2MSFTNGP06.phx.gbl...
>> Only about 56 or so fields in the actual table.
>>
>> Thanks
>>
>> Regards
>>
>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>> news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
>>> John,
>>>
>>> I did not count them exact. You know that the wizards can handle maxium
>>> 100 fields?
>>>
>>> Cor
>>>
>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
>>>>I have a field ID as access auto number but the data adapter
>>>>configuration wizard seems to have skipped it in its update code. Code
>>>>below (sorry for so much).
>>>>
>>>> I am just updating once as far as I can tell. Also the update code was
>>>> working fine before I just added a couple of new fields and regenerated
>>>> the code using the wizard and pasted it in my app.
>>>>
>>>> Thanks
>>>>
>>>> Regards
>>>>
>>>>  updcomCompanies.CommandText = "UPDATE tblClients SET
>>>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
>>>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason =
>>>> ?, Client_Notes = " & _
>>>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No =
>>>> ?, Country = ?, " & _
>>>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified =
>>>> ?, Directions = ?," & _
>>>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
>>>> Financial_Comments = ?, " & _
>>>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?,
>>>> Invoice_Company = ?, Invoice_C" & _
>>>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
>>>> Modified_By = ?, " & _
>>>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
>>>> Sort = ?, Source" & _
>>>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
>>>> ?, Staff_Grade_2" & _
>>>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
>>>> ?, Status = ?, S" & _
>>>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
>>>> Uniforms_Needed " & _
>>>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
>>>> Venture_Debtor_No = ?," & _
>>>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
>>>> NULL AND Account_R" & _
>>>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
>>>> IS NULL) AND (Are" & _
>>>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
>>>> (Blocked_Date = ? OR " & _
>>>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
>>>> OR ? IS NULL AND" & _
>>>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
>>>> Company IS NULL) " & _
>>>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
>>>> Company_Registration_No IS NUL" & _
>>>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
>>>> (County = ? OR ? IS NU" & _
>>>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
>>>> Created_By IS NULL) " & _
>>>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
>>>> AND (Date_Modified " & _
>>>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
>>>> IS NULL AND EMai" & _
>>>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
>>>> Fax IS NULL) AND" & _
>>>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
>>>> (Invoice_Address = ? OR ? IS" & _
>>>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR
>>>> ? IS NULL AND Inv" & _
>>>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
>>>> Invoice_Country " & _
>>>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND
>>>> Invoice_County IS NULL) AND (I" & _
>>>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
>>>> AND (Modified_By " & _
>>>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
>>>> IS NULL AND Paren" & _
>>>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND
>>>> Payment_Terms IS NULL) AND (P" & _
>>>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode
>>>> IS NULL) AND (Sort" & _
>>>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS
>>>> NULL AND Source IS N" & _
>>>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
>>>> AND (Staff_Grade" & _
>>>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
>>>> (Staff_Grade_4 = ?) " & _
>>>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address
>>>> IS NULL) AND (Stat" & _
>>>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR
>>>> ? IS NULL AND St" & _
>>>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
>>>> Supplier_No IS NULL) AN" & _
>>>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ?
>>>> IS NULL AND TempID" & _
>>>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
>>>> (Uniforms_Needed = ? " & _
>>>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
>>>> (Uniforms_Needed_Elite = ? OR ? IS" & _
>>>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
>>>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
>>>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No =
>>>> ? OR ? IS NULL AN" & _
>>>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
>>>> IS NULL)"
>>>>        Me.updcomCompanies.Connection = dbConContacts
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Area",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Department",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Client_Notes",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Client_Specifics",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Created_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Date_Created",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Date_Modified",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Directions",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Elite_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("EMail",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Event_Notes",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Fax",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Financial_Comments",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Group",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Image_List",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Map",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Modified_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Parent",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Payment_Terms",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("People_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Sort",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Source",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Source_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Special_Requirments",
>>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
>>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Statement_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Status",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Status_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Supplier_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Tel",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("TempID",
>>>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Type",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Web",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
>>>>        Me.updcomCompanies.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.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Account_Reference_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Account_Reference_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Area",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Area1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Area", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Blocked_Department1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Blocked_Department", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Company_Registration_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Company_Registration_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Country1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Country", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_County1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Created_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Created_By1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Created_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Created1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Created", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Date_Modified1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Date_Modified", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_EMail",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_EMail1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Elite_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Elite_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Fax",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Fax1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Group",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Group1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Group", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Company1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Company", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Country1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Country", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_County1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_County", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Invoice_Postcode1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Invoice_Postcode", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Modified_By1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Modified_By", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Parent",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Parent1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Parent", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Payment_Terms1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Payment_Terms", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_People_Client",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "People_Client", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Postcode",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Postcode1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Postcode", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Sort",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Sort1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Sort", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Source_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Source_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_1",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_1", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_2",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_2", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_3",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_3", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Staff_Grade_4",
>>>> System.Data.OleDb.OleDbType.Boolean, 2,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Staff_Grade_4", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Statement_Address1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Statement_Address", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Status_Date1",
>>>> System.Data.OleDb.OleDbType.DBDate, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Status_Date", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Supplier_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Supplier_No", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Tel",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Tel1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Tel", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_TempID",
>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_TempID1",
>>>> System.Data.OleDb.OleDbType.Integer, 0,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "TempID", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Type",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Type1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Type", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Elite1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Elite", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Uniforms_Needed_Tech1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 255,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Uniforms_Needed_Tech", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Venture_Debtor_No1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 50,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Venture_Debtor_No", System.Data.DataRowVersion.Original,
>>>> Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Web",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>        Me.updcomCompanies.Parameters.Add(New
>>>> System.Data.OleDb.OleDbParameter("Original_Web1",
>>>> System.Data.OleDb.OleDbType.VarWChar, 80,
>>>> System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
>>>> Byte), "Web", System.Data.DataRowVersion.Original, Nothing))
>>>>
>>>> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
>>>> news:udp3gGCzGHA.772@TK2MSFTNGP05.phx.gbl...
>>>>> John,
>>>>>
>>>>> Are you using an autonumbering integer and are updating more times.
>>>>> Than you have to refresh everytime your dataset after an update with
>>>>> Access.
>>>>>
>>>>> Cor
>>>>>
>>>>> "John" <John@nospam.infovis.co.uk> schreef in bericht
>>>>> news:uxayjCAzGHA.3512@TK2MSFTNGP04.phx.gbl...
>>>>>> Hi
>>>>>>
>>>>>> I had a working vs 2003 application with access backend. I added a
>>>>>> couple fields in a table in access db and then to allow user to have
>>>>>> access to these fields via app I did the following;
>>>>>>
>>>>>> 1. Regenerated the data adapter sqls by running the data adapter
>>>>>> wizard and pasting the resulting code into my app.
>>>>>>
>>>>>> 2. Deleted the data adapter correspond to the relevant access table
>>>>>> from the dataset and re-dragged the table to dataset to have the new
>>>>>> fields included in the resulting data adapter.
>>>>>>
>>>>>> 3. Used below code to bind the windows form field to the underlying
>>>>>> table field;
>>>>>>
>>>>>> db = New System.Windows.Forms.Binding("Text", ds,
>>>>>> "tblClients.MyField")
>>>>>> txtMyField.DataBindings.Add(db)
>>>>>>
>>>>>> Now when I run the app I can view the data in the fields including
>>>>>> the new ones but if I change any  field and try to save
>>>>>> (da.Update(ds.tblClients)), I get the below error;
>>>>>>
>>>>>> Concurrency violation: the UpdateCommand affected 0 records.
>>>>>>
>>>>>> Even though only one user is running the app. What is the problem and
>>>>>> how can it be fixed?
>>>>>>
>>>>>> Thanks
>>>>>>
>>>>>> Regards
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>

"John" wrote:

> Sorry client_specifics is there. I am just confusing myself.
>
> Thanks again.
>
> Regards
>
> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
> news:OnQRWdEzGHA.4932@TK2MSFTNGP02.phx.gbl...
> > What were the names of the fields that you did add?
> >
> > I am not good in SQL transactcode therefore fieldnames as type give me
> > always not such a well idea.
> >
> > Cor
> >
> > "John" <John@nospam.infovis.co.uk> schreef in bericht
> > news:eti$GZEzGHA.4796@TK2MSFTNGP06.phx.gbl...
> >> Only about 56 or so fields in the actual table.
> >>
> >> Thanks
> >>
> >> Regards
> >>
> >> "Cor Ligthert [MVP]" <notmyfirstn***@planet.nl> wrote in message
> >> news:%23YND7FEzGHA.4044@TK2MSFTNGP04.phx.gbl...
> >>> John,
> >>>
> >>> I did not count them exact. You know that the wizards can handle maxium
> >>> 100 fields?
> >>>
> >>> Cor
> >>>
> >>> "John" <John@nospam.infovis.co.uk> schreef in bericht
> >>> news:OP5$KyDzGHA.2640@TK2MSFTNGP06.phx.gbl...
> >>>>I have a field ID as access auto number but the data adapter
> >>>>configuration wizard seems to have skipped it in its update code. Code
> >>>>below (sorry for so much).
> >>>>
> >>>> I am just updating once as far as I can tell. Also the update code was
> >>>> working fine before I just added a couple of new fields and regenerated
> >>>> the code using the wizard and pasted it in my app.
> >>>>
> >>>> Thanks
> >>>>
> >>>> Regards
> >>>>
> >>>>  updcomCompanies.CommandText = "UPDATE tblClients SET
> >>>> Account_Reference_No = ?, Address = ?, Area = ?, Blocked = " & _
> >>>>        "?, Blocked_Date = ?, Blocked_Department = ?, Blocked_Reason =
> >>>> ?, Client_Notes = " & _
> >>>>        "?, Client_Specifics = ?, Company = ?, Company_Registration_No =
> >>>> ?, Country = ?, " & _
> >>>>        "County = ?, Created_By = ?, Date_Created = ?, Date_Modified =
> >>>> ?, Directions = ?," & _
> >>>>        " Elite_Client = ?, EMail = ?, Event_Notes = ?, Fax = ?,
> >>>> Financial_Comments = ?, " & _
> >>>>        "[Group] = ?, Image_List = ?, Invoice_Address = ?,
> >>>> Invoice_Company = ?, Invoice_C" & _
> >>>>        "ountry = ?, Invoice_County = ?, Invoice_Postcode = ?, Map = ?,
> >>>> Modified_By = ?, " & _
> >>>>        "Parent = ?, Payment_Terms = ?, People_Client = ?, Postcode = ?,
> >>>> Sort = ?, Source" & _
> >>>>        " = ?, Source_Date = ?, Special_Requirments = ?, Staff_Grade_1 =
> >>>> ?, Staff_Grade_2" & _
> >>>>        " = ?, Staff_Grade_3 = ?, Staff_Grade_4 = ?, Statement_Address =
> >>>> ?, Status = ?, S" & _
> >>>>        "tatus_Date = ?, Supplier_No = ?, Tel = ?, TempID = ?, Type = ?,
> >>>> Uniforms_Needed " & _
> >>>>        "= ?, Uniforms_Needed_Elite = ?, Uniforms_Needed_Tech = ?,
> >>>> Venture_Debtor_No = ?," & _
> >>>>        " Web = ? WHERE (ID = ?) AND (Account_Reference_No = ? OR ? IS
> >>>> NULL AND Account_R" & _
> >>>>        "eference_No IS NULL) AND (Address = ? OR ? IS NULL AND Address
> >>>> IS NULL) AND (Are" & _
> >>>>        "a = ? OR ? IS NULL AND Area IS NULL) AND (Blocked = ?) AND
> >>>> (Blocked_Date = ? OR " & _
> >>>>        "? IS NULL AND Blocked_Date IS NULL) AND (Blocked_Department = ?
> >>>> OR ? IS NULL AND" & _
> >>>>        " Blocked_Department IS NULL) AND (Company = ? OR ? IS NULL AND
> >>>> Company IS NULL) " & _
> >>>>        "AND (Company_Registration_No = ? OR ? IS NULL AND
> >>>> Company_Registration_No IS NUL" & _
> >>>>        "L) AND (Country = ? OR ? IS NULL AND Country IS NULL) AND
> >>>> (County = ? OR ? IS NU" & _
> >>>>        "LL AND County IS NULL) AND (Created_By = ? OR ? IS NULL AND
> >>>> Created_By IS NULL) " & _
> >>>>        "AND (Date_Created = ? OR ? IS NULL AND Date_Created IS NULL)
> >>>> AND (Date_Modified " & _
> >>>>        "= ? OR ? IS NULL AND Date_Modified IS NULL) AND (EMail = ? OR ?
> >>>> IS NULL AND EMai" & _
> >>>>        "l IS NULL) AND (Elite_Client = ?) AND (Fax = ? OR ? IS NULL AND
> >>>> Fax IS NULL) AND" & _
> >>>>        " ([Group] = ? OR ? IS NULL AND [Group] IS NULL) AND
> >>>> (Invoice_Address = ? OR ? IS" & _
> >>>>        " NULL AND Invoice_Address IS NULL) AND (Invoice_Company = ? OR
> >>>> ? IS NULL AND Inv" & _
> >>>>        "oice_Company IS NULL) AND (Invoice_Country = ? OR ? IS NULL AND
> >>>> Invoice_Country " & _
> >>>>        "IS NULL) AND (Invoice_County = ? OR ? IS NULL AND
> >>>> Invoice_County IS NULL) AND (I" & _
> >>>>        "nvoice_Postcode = ? OR ? IS NULL AND Invoice_Postcode IS NULL)
> >>>> AND (Modified_By " & _
> >>>>        "= ? OR ? IS NULL AND Modified_By IS NULL) AND (Parent = ? OR ?
> >>>> IS NULL AND Paren" & _
> >>>>        "t IS NULL) AND (Payment_Terms = ? OR ? IS NULL AND
> >>>> Payment_Terms IS NULL) AND (P" & _
> >>>>        "eople_Client = ?) AND (Postcode = ? OR ? IS NULL AND Postcode
> >>>> IS NULL) AND (Sort" & _
> >>>>        " = ? OR ? IS NULL AND Sort IS NULL) AND (Source = ? OR ? IS
> >>>> NULL AND Source IS N" & _
> >>>>        "ULL) AND (Source_Date = ? OR ? IS NULL AND Source_Date IS NULL)
> >>>> AND (Staff_Grade" & _
> >>>>        "_1 = ?) AND (Staff_Grade_2 = ?) AND (Staff_Grade_3 = ?) AND
> >>>> (Staff_Grade_4 = ?) " & _
> >>>>        "AND (Statement_Address = ? OR ? IS NULL AND Statement_Address
> >>>> IS NULL) AND (Stat" & _
> >>>>        "us = ? OR ? IS NULL AND Status IS NULL) AND (Status_Date = ? OR
> >>>> ? IS NULL AND St" & _
> >>>>        "atus_Date IS NULL) AND (Supplier_No = ? OR ? IS NULL AND
> >>>> Supplier_No IS NULL) AN" & _
> >>>>        "D (Tel = ? OR ? IS NULL AND Tel IS NULL) AND (TempID = ? OR ?
> >>>> IS NULL AND TempID" & _
> >>>>        " IS NULL) AND (Type = ? OR ? IS NULL AND Type IS NULL) AND
> >>>> (Uniforms_Needed = ? " & _
> >>>>        "OR ? IS NULL AND Uniforms_Needed IS NULL) AND
> >>>> (Uniforms_Needed_Elite = ? OR ? IS" & _
> >>>>        " NULL AND Uniforms_Needed_Elite IS NULL) AND
> >>>> (Uniforms_Needed_Tech = ? OR ? IS N" & _
> >>>>        "ULL AND Uniforms_Needed_Tech IS NULL) AND (Venture_Debtor_No =
> >>>> ? OR ? IS NULL AN" & _
> >>>>        "D Venture_Debtor_No IS NULL) AND (Web = ? OR ? IS NULL AND Web
> >>>> IS NULL)"
> >>>>        Me.updcomCompanies.Connection = dbConContacts
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Account_Reference_No",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Account_Reference_No"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Address",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Address"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Area",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Area"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Blocked",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Blocked"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Blocked_Date",
> >>>> System.Data.OleDb.OleDbType.DBDate, 0, "Blocked_Date"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Blocked_Department",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Blocked_Department"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Blocked_Reason",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Blocked_Reason"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Client_Notes",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Notes"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Client_Specifics",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Client_Specifics"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Company",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Company_Registration_No",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Company_Registration_No"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Country",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("County",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "County"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Created_By",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Created_By"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Date_Created",
> >>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Created"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Date_Modified",
> >>>> System.Data.OleDb.OleDbType.DBDate, 0, "Date_Modified"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Directions",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Directions"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Elite_Client",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Elite_Client"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("EMail",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 80, "EMail"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Event_Notes",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Event_Notes"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Fax",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Fax"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Financial_Comments",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Financial_Comments"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Group",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Group"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Image_List",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Image_List"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Invoice_Address",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Invoice_Address"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Invoice_Company",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Company"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Invoice_Country",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Country"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Invoice_County",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_County"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Invoice_Postcode",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Invoice_Postcode"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Map",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Map"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Modified_By",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Modified_By"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Parent",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Parent"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Payment_Terms",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Payment_Terms"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("People_Client",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "People_Client"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Postcode",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Postcode"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Sort",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Sort"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Source",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Source"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Source_Date",
> >>>> System.Data.OleDb.OleDbType.DBDate, 0, "Source_Date"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Special_Requirments",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 0, "Special_Requirments"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Staff_Grade_1",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_1"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Staff_Grade_2",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_2"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Staff_Grade_3",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_3"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Staff_Grade_4",
> >>>> System.Data.OleDb.OleDbType.Boolean, 2, "Staff_Grade_4"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Statement_Address",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Statement_Address"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Status",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Status"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Status_Date",
> >>>> System.Data.OleDb.OleDbType.DBDate, 0, "Status_Date"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Supplier_No",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Supplier_No"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Tel",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Tel"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("TempID",
> >>>> System.Data.OleDb.OleDbType.Integer, 0, "TempID"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Type",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Type"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Elite",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Elite"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Uniforms_Needed_Tech",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 255, "Uniforms_Needed_Tech"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Venture_Debtor_No",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 50, "Venture_Debtor_No"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Web",
> >>>> System.Data.OleDb.OleDbType.VarWChar, 80, "Web"))
> >>>>        Me.updcomCompanies.Parameters.Add(New
> >>>> System.Data.OleDb.OleDbParameter("Original_ID",