在VB6.0+Access2000程序代码中怎样创建.mdb文件与.mdb文件下的表？？

Question

在VB6.0+Access2000程序代码中怎样创建.mdb文件与.mdb文件下的表？？
而不是用SQL server创建！！！

Answer 1

`系统检测是否有有date.mdb文件，如果没有，则是系统第一次启动。则建立之 
   '用API取得系统目录，如c:\windows 或是d:\winnt,,,,这样适合于所有操作系统呀 
   If Dir(c:\wimdows\system\date.mdb")=“”Then 
    `注意在开始，你要确定工程引用了Mi-crosoft dao 2.5/3.5 compatibility 
 library 
    Dim WS As Workspace 
    Dim DB As Database 
    Dim TD As Tabledef 
    Dim FLD As Field 
    Dim IDX As Index 
    Dim rd As Recordset 
    Set WS=DBEngine.workspaces(0) 
    set DB=Ws.CreateDatabase("c:\windows\system\date.mdb",dbLangGeneral) 
    DB.Connect="；pwd=andy" 
    set TD=Db.CreateTableDef("Date") 
    TD.Attributes=0 
    TD.Connect="" 
    TD.SourceTableName="" 
    TD.ValidationRule="" 
    TD.ValidationText="" 'Fied first_time 
    Set FLD =TD.CreateField("first_time",8,8) 
      FLD.Attributes=1 
      FLD.DefaultValue="" 
      FLD.OrdinalPosition=0 
      FLD.Required=False 
      FLD.ValidationRule="" 
      FLD.ValidationText="" 
    TD.Fields.Append FLD 'Fied first_time 
   Set FLD =TD.CreateField("last_time",8,8) 
      FLD.Attributes=1 
      FLD.DefaultValue="" 
      FLD.OrdinalPosition=1 
      FLD.Required=False 
      FLD.ValidationRule="" 
      FLD.ValidationText="" 
    TD.Fields.Append FLD 'Fied first_time 
   Set FLD =TD.CreateField("times",3,2) 
      FLD.Attributes=1 
      FLD.DefaultValue="" 
      FLD.OrdinalPosition=2 
      FLD.Required=False 
      FLD.ValidationRule="" 
      FLD.ValidationText="" 
    TD.Fields.Append FLD 
    DB.TableDefs.Append Td 
    DB.Close 
    set DB=Ws.OpenDatabase("c:\windows\system\date.mdb") 
    Set rd=DB.OpenRecordset("date") 
    With rd 
        .AddNew 
        .Fields("first_time")=Date 
        .Fields("last_time")=Date 
        .Fields("times")=1 
        .Update 
    end With 
    DB.Close 
  msgbox "create db ok!"
end if

Answer 2

http://expert.csdn.net/Expert/topic/1615/1615906.xml?temp=.3189051