→→→データベースにテーブルを作成

Dim oCom  As OleDb.OleDbCommand
Dim oCn As OleDb.OleDbConnection = New OleDb.OleDbConnection
oCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\***.mdb;" &
                                 "Persist Security Info=False"
oCn.Open()
Try
  oCom = New OleDb.OleDbCommand("CREATE TABLE テスト(コード INT,製品名 CHAR(40))",oCn)
  oCom.ExecuteNonQuery()
  MessageBox.show("作成しました")
Catch ex As Exception
  MessageBox.show( ex.Message )
End Try
oCn.Close()