Dim conn, path
path =  "c:\" 
Set conn = CreateObject( "ADODB.Connection" )
conn.Open ( "Provider=Microsoft.Jet.OLEDB.4 . 0 ;Data Source=" & path &  ";User ID=Admin;Password=;Extended Properties=dBase IV" )
conn.Execute  "create table dbftable (ID_N int,dt date,info char(100 ))"
conn.Close
Set conn = Nothing