データベースをフォーム上のボタン一つで、新規作成する方法

Question

 

＜使用環境＞

windowsXP

VB2005　EE

 

現在、データベースを任意に新規作成する方法を探しております。一応、理解できているコードは下記のとおりです。

Dim cat As Object

 

cat = CreateObject("ADOX.Catalog")

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=" & AddressTextBox.Text & "\" & 　

　　YearComboBox.Text & "\" & TextBox1.Text & ".mdb")

Dim strTable As String

Dim tbl As Object

   tbl = CreateObject("ADOX.TABLE")
   strTable = "meisai_master"
   tbl.Name = strTable
   cat.Tables.Append(tbl)
    With cat.Tables(strTable).Columns
             .Append("商品コード")
             .Append("商品名")
             .Append("説明")
             .Append("単価")
    End With

 

このようにADOXを利用すれば簡単にデータベースを作成できるのですが、ここで2点ほど質問があります。

一つ目は、上記ではテーブルを一つ作成していますが、続けて二つ目のテーブルを作成する方法がわかりません。

二つ目は、上記の方法以外にデータベースをウィンドウズフォーム上から作成する方法を教えてください。

 

よろしくお願いします。