在写这篇文章之前心里不免有点自卑，因为VB已经快被微软淘汰了，可是由于工作的关系还在一直使用它。毕竟它真的很容易上手，可是如果再靠它去找工作估计很难了。呵呵，废话少说，只要还有人用它就表示它还没过时。 下面介绍的内容标题已经概括了，直接介绍如何操作。 打开VB6.0，因为我安装了sp包，所以我用到的控件版本号高一些，在网上找资料时看到有用版本号比较低的控件。应该都可以的。 1. 新建一个工程，找到VB编辑器主窗体的【工程】菜单－>【引用】，在弹出的窗体中选择【Microsoft ADO Ext. 2.X for DDL and Security】，“2.X”表示版本。 2. 在窗体中选择Form_Load( )，在其中输入如下代码： Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table Dim pstr As String Dim db As String db = App.Path & "/" & "tmp.mdb" pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '数据库驱动 4.0 For Office 2k/2003, 3.5.1 For Office 97 pstr = pstr & "Data Source=" & db cat.Create pstr cat.ActiveConnection = pstr tbl.Name = "Table_One" tbl.Columns.Append "No", adInteger tbl.Columns.Append "Name", adVarWChar, 20 tbl.Columns.Append "Age", adInteger cat.Tables.Append tbl 'Create table 1 Set tbl = Nothing 'Reset Adox table Set tbl = New ADOX.Table tbl.Name = "Table_Two" 'Create table 2, Next 3,4,.... tbl.Columns.Append "No", adInteger tbl.Columns.Append "Count", adVarBinary tbl.Columns.Append "Time", adDate cat.Tables.Append tbl 调试，通过。 因为有自己做的修改，所以不能算转贴。 应该可以算做原创。^_^ （啥玩意不懂，那是相当闹心啊）
