→→→Access4.0との接続(CREATE TABLE)

Dim cCom 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
  cCom = New OleDb.OleDbCommand("CREATE TABLE テーブル(コード INT, 製品名 CHAR(40)),ocn)
  cCom.ExecuteNonQuery()
Catch ex As Exception
  MessageBox.Show("エラー")
End Try
ocn.Close()