Vayne

I have this sub which performs updates in successive function call. The reader object is closed only when the operation has been completed (after the while loop has ended), yet I get this error. Any suggestions? [CODE] sub reset_slno() dim objCmd2 as new OleDBCommand() dim objReader2 as OleDBDataReader objCmd2.Connection = …

The ToString() method is applicable to objects and not to data types. Make use of [I]CType [/I]instead and you should be good.

Can you please have more clarity in your question? Do you want to know how to retrieve values from a database? or do you want to know how to count the number distinct values?

Hi, This is a good snippet: [CODE]dim strSQL as String = "INSERT INTO tbl_civil_works(orgcode, item_works, descr, qty_area, " & _ "units, rates, amount, timestamp_now) VALUES(" & intOrgCode & _ ", '" & param(0) & "', '" & param(1) & "', '" & param(2) & "', '" & param(3) & _ …