Kylua

As far as I can see this line is where it hangs: sda.Fill(dt) So the only way you can also run a progress bar is to have either this or the progress bar running on another thread. And that's fun. [CODE]Dim th As New System.Threading.Thread(AddressOf [B]YourProgressBarRoutine[/B]) th.SetApartmentState(Threading.ApartmentState.STA) th.Start()[/CODE]

[I]Dim vr_nos As String = CDbl(vr_mast.vr_no) [/I] That will still cause a problem becos you are still trying to convert a string to a double. So leave out the cdbl and just pull in the full string: [B]Dim vr_nos As String = vr_mast.vr_no[/B] So you have, say, 'cust9' or 'vend9' …

To write to a csv file simply create a string with the values separated by commas and write it to a text file. x = listboxitem1 & "," & listboxitem2 & "," & listboxitem3 Dim objReader As StreamWriter objReader = New StreamWriter(YourFilePath) objReader.Write(x) objReader.Close() It will then open in Excel …