Dim date() As String = Regex.Split("/",tDelivery.Text)
Dim DateVal As Long = DateUtils.SetDate(date(2),date(0),date(1))
Then calling this query. All the dates in my db are currently 12/30/1899 (blank date for foxpro)
SELECT DISTINCT S.* FROM style S
JOIN linsheet L ON S.pat_code = L.line_patt
AND L.company_id = S.company_id
AND L.line_patt = S.pat_code
WHERE S.COMPANY_ID = 6
AND S.pat_disc = 0
AND L.line_disc = 0
ORDER BY S.pat_code
AND L.delivery>= 1388552400000