Assuming your date it mm/dd/yyyy:
Dim DateString As String
DateString = Year(dt).ToString & Month(dte).ToString & Day(dte).ToString
If you need leading zeroes on days and months that are less than 10 (e.g., 9/9/2006), then do this:
DateString = Year(dt).ToString
If Month(dte) < 10 Then
DateString &= "0" & Month(dte).ToString
Else
DateString &= Month(dte).ToString
End If
If Day(dte) < 10 Then
DateString &= "0" & Day(dte).ToString
Else
DateString &= Day(dte).ToString
End If
I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson
Arrrr, mateys! Ye needs ta be preparin' yerselves fer
Talk Like a Pirate Day! Ye has a choice: talk like a pira