Dim d As New Dictionary(Of String, Object)(rdr.FieldCount)
For i As Integer = 0 To rdr.FieldCount - 1
If rdr.GetFieldType(i) Is GetType(Date) Then
If rdr.IsDBNull(i) = True Then
d(rdr.GetName(i)) = rdr.GetValue(i)
Else
d(rdr.GetName(i)) = rdr.GetDateTime(i).ToString("yyyy-MM-dd HH:mm:ss")
End If
Else
d(rdr.GetName(i)) = rdr.GetValue(i)
End If
Next