Hello programmers. After doing much research I am unable to resolve how or where to custom format each field of my SQL table output into my text file. Can someone help me with enhancing the be vb script? Do I do the formatting in the Dim section or in the if not – then section or in the streamwriter section?

Two Sample Format Problems:
1. Using the below VB script in asp.net the “paydate” is outputting to the checkfile.txt as 1/1/2010. I need to format it so it outputs as 1/1/10.

2. Using the below VB script in asp.net the “checkamt” is outputting to the checkfile.txt as 848.7000. I need to format it so it outputs as 848.70.

Dim sw As New System.IO.StreamWriter("c:\CheckFile.txt")

For Each dr As DataRow In ds.Tables(0).Rows

Dim Strpaydate As String = String.Empty
Dim Strcheckamt As String = String.Empty
Dim Strname As String = String.Empty
Dim Stradd1 As String = String.Empty
Dim Stradd2 As String = String.Empty
Dim Stradd3 As String = String.Empty
Dim Stradd4 As String = String.Empty
Dim Strpostcode As String = String.Empty
Dim Strinvno As String = String.Empty
Dim Strinvoiceamt As String = String.Empty
Dim Strvendor As String = String.Empty
Dim Strcheckno As String = String.Empty
Dim Strsname As String = String.Empty
Dim StrGrp As String = String.Empty
Dim StrGroupName As String = String.Empty


If Not IsDBNull(dr("paydate")) Then Strpaydate = (dr("paydate"))
If Not IsDBNull(dr("checkamt")) Then Strcheckamt = Format(dr("checkamt"))
If Not IsDBNull(dr("name")) Then Strname = (dr("name"))
If Not IsDBNull(dr("add1")) Then Stradd1 = (dr("add1"))
If Not IsDBNull(dr("add2")) Then Stradd2 = (dr("add2"))
If Not IsDBNull(dr("add3")) Then Stradd3 = (dr("add3"))
If Not IsDBNull(dr("add4")) Then Stradd4 = (dr("add4"))
If Not IsDBNull(dr("postcode")) Then Strpostcode = (dr("postcode"))
If Not IsDBNull(dr("invno")) Then Strinvno = (dr("invno"))
If Not IsDBNull(dr("invoiceamt")) Then Strinvoiceamt = (dr("invoiceamt"))
If Not IsDBNull(dr("vendor")) Then Strvendor = (dr("vendor"))
If Not IsDBNull(dr("checkno")) Then Strcheckno = (dr("checkno"))
If Not IsDBNull(dr("sname")) Then Strsname = (dr("sname"))
If Not IsDBNull(dr("Grp")) Then StrGrp = (dr("Grp"))
If Not IsDBNull(dr("GroupName")) Then StrGroupName = (dr("GroupName"))

sw.WriteLine(Strpaydate + " " + Stradd4 + " " + " " + Strname + " " + Strcheckamt + " " + Stradd1 + " " + Stradd2 + " " + Stradd3 + " " _" " + Strpostcode + " " + Strinvno + " " + Strinvoiceamt + " " + Strvendor + " " + Strcheckno _" " + Strsname + " " + StrGrp + " " + StrGroupName)

Next