虎搞瞎搞

Dim ds As New DataSet
'判斷欄位是否存在
If ds.Tables(0).Columns.Contains("欄位名稱") = True Then
End If

'判斷欄位是否有值
If IsDBNull(ds.Tables(0).Rows(0).Item("欄位名稱")) Then
End If

'判斷是否日期格式
If IsDate(ds.Tables(0).Rows(0).Item("欄位名稱")) Then
End If

參考:http://www.dotblogs.com.tw/joysdw12/archive/2010/11/25/19725.aspx