System.FormatEx ception: String was not recognized as a valid DateTime

[RSH]

I am having a bit of trouble filling a datatable with a query. I'm getting
the error message:

System.FormatEx ception: String was not recognized as a valid DateTime. at
System.DateTime Parse.Parse(Str ing s, DateTimeFormatI nfo dtfi, DateTimeStyles
styles) at System.DateTime .Parse(String s, IFormatProvider provider,
DateTimeStyles styles) at System.DateTime .Parse(String s, IFormatProvider
provider) at System.Convert. ToDateTime(Stri ng value, IFormatProvider
provider) at System.String.S ystem.IConverti ble.ToDateTime( IFormatProvider
provider) at System.Convert. ToDateTime(Obje ct value) at
System.Data.Com mon.DateTimeSto rage.Set(Int32 record, Object value) at
System.Data.Dat aColumn.set_Ite m(Int32 record, Object value)Couldn't store <>
in InstallationDat e Column. Expected type is DateTime.

The problem is that the tables are arrived at dynamically and the code
cycles through the tables one by one and outputs the datatables at the end
of each. How can I have it ignore the offending information dynamically
before causing the error. If the tables were known in advance I could write
a where clause but since it is all dynamica I dont have the information to
create a where clause.

Any ideas?

Thanks,
RSH
Private Sub ShowAccessTable Structure()

Dim objDS As DataSet = New DataSet

Dim objDT1 As DataTable

Dim strDisplay As String

Dim i As Integer

Dim strTablename As String

Dim dc As DataColumn

Dim cn As String

Dim cdt As String

Dim objConn As OleDbConnection = New
OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=D:\Intra net\Data\Intran et.mdb")

Dim objConn2 As OleDbConnection = New
OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=D:\Intra net\Data\Intran et.mdb")

objConn.Open()

objConn2.Open()

objDT1 =
objConn.GetOleD bSchemaTable(Sy stem.Data.OleDb .OleDbSchemaGui d.Tables, New
Object() {Nothing, Nothing, Nothing, Nothing})

For i = 0 To objDT1.Rows.Cou nt - 1

DisplayArea.Tex t += "<table border=0 cellpadding=0 cellspacing=0>< tr><td
bgcolor='#00000 0'><table border=0 cellpadding=3 cellspacing=1>"

strTablename = objDT1.Rows(i). Item(2)

DisplayArea.Tex t += "<tr bgcolor='#ddeea a'><td><b>" & strTablename &
"</b></td></tr>"

Dim objDA2 As OleDbDataAdapte r = New OleDbDataAdapte r("SELECT * FROM [" &
strTablename & "]", objConn2)
objDA2.Fill(obj DS, "DBRows")
For Each dc In objDS.Tables("D BRows").Columns

cn = dc.ColumnName

DisplayArea.Tex t += "<tr bgcolor='#fffff f'><td>" & cn & "</td></tr>"

Next

DisplayArea.Tex t += "</table></td></tr></table><br>"

Next

objConn2.Close( )

objConn.Close()

End Sub