Private Sub Command1_Click()
   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.dbf"
End SubADOX的具体内容可以参考MSDN上的帮助