CREATE TABLE.... Short date field...

[wpearsall]

Dim sql As String
sql = "create table [Visits2]"
sql = sql & "("
sql = sql & "[sDate] Date,"
sql = sql & "[Session] Text(1),"
sql = sql & "[Visitors] Memo"
sql = sql & ")"
ConnOBData.Execute sql

it works, but need my sDate field to be a shortdate field...

how do i set that? Cheers.