برای کسانی که ممکنه به این ایراد برخورد کنن ، این راه حلش هست :
DataTable.Columns.Add("DT", System.Type.GetType("System.DateTime"))
Dim MyDate As DateTime = Nothing
Date.TryParseExact("2019-08-27", "yyyy-MM-dd", Globalization.CultureInfo.CreateSpecificCulture("e n-US"), Globalization.DateTimeStyles.None, MyDate)
DataTable.Rows.Add(MyDate)
Dim DR() As DataRow
Dim Sr As String = MyDate.ToString("yyyy-MM-dd", Globalization.CultureInfo.CreateSpecificCulture("e n-US"))
DR = DataTable.Select("DT = #" & Sr & "#")