如何在程序中动态创建一个foxpro自由表？

Question

就是我在程序中指定一个文件名和路径，创建出一个文件，然后建表。
我找到下面一段程序，但有些疑问，希望大家帮忙解释一下。
创建Access数据库
procedure CreateAccessFile(const FileName:string);
var cAccess:variant;
    ok:Boolean;
begin
  try
    if FileExists(filename) then deletefile(filename);
    CAccess := CreateOleObject('ADOX.Catalog');  //ADOX.Catalog我在delphi的帮助上找不到，它是access专用还是通用的？
    CAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+filename);//如果要创建foxpro自由表，上面的provider是不是要改一改？
    ok:=True;
  except
     ok:=False;
  end;
  if ok then ShowMessage('成功')
  else ShowMessage('失败');
end;
创建Access数据库//上面是创建文件，下面是建表，其中的adoquery组件的
ConnectionString怎么写啊？还有，这是在foxpro中建表，那么有没有什么特别要注意的地方？
SQL 建表命令:='CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
   )'
Adoquery.close;
Adoquery.sql.clear;
adoquery.sql.add(SQL 建表命令)
adoquery.execsql;

Answer 1

添加adoquery组件，设置其connectionstring='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\;Extended Properties=dbase 5.0;Persist Security Info=False'
sql属性设置为
create table qsds (dd string(5),dd1 integer,dd2 float,dd3 logical,dd4 date)
//vfp中创建表的命令
然后adoquery.exec就搞定啦，会在d盘的根目录下创建一个qsds.dbf文件

Answer 2

谢谢RockEx(石头_) 。
还有一个问题，就是vfp中的数据格式（string，integer等）和sql server中的对应关系，格式不对应的话肯定无法相互转换，是不是这样？