and I don't know how large the amount of data returned from the SQL table will be. But at least it looks the way they want it:

Dim intRowsOfData As Integer = dt.Rows.Count
Dim j As Integer
Dim myDate As Date

'--- Due Date column
For j = 2 To intRowsOfData + 1
myDate = CDate(excelSheet.Cells(j, 19).Value)
excelSheet.Cells(j, 19).NumberFormat = "@"
excelSheet.Cells(j, 19).Value = FormatCellDisplayDate(myDate)
Next

'--- Run Date column
For j = 2 To intRowsOfData + 1
myDate = CDate(excelSheet.Cells(j, 4).Value)
excelSheet.Cells(j, 4).NumberFormat = "@"
excelSheet.Cells(j, 4).Value = FormatCellDisplayDate(myDate)
Next



Private Function FormatCellDisplayDate(ByVal inDate As Date) As String

Dim strBuf As String
Dim iMonth As Int16
Dim iDay As Int16
Dim iYear As Int16


iMonth = inDate.Month
iDay = inDate.Day
iYear = inDate.Year


If iMonth Less Than 10 Then
strBuf = "0" & iMonth.ToString
Else
strBuf = iMonth.ToString
End If
strBuf &= "/"
If iDay Less Than 10 Then
strBuf &= "0" & iDay.ToString
Else
strBuf &= iDay.ToString
End If
strBuf &= "/"
strBuf &= iYear.ToString

Return strBuf

End Function