vb中如何创建mysql表_vb.net 创建access数据表实现一数据库多个数据表？

请各位指点下：程序代码如下mingchen = "C:\文件路径\"

cat = New ADOX.Catalog

cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & mingchen & "555" & ".mdb")

tbl = New ADOX.Table

tbl.Name = TextBox1.Text

tbl.Columns.Append("编号", DataTypeEnum.adWChar)

tbl.Columns.Append("编号2", DataTypeEnum.adVarWChar)

tbl.Columns.Append("编号3", DataTypeEnum.adVarWChar)

tbl.Columns.Append("编号4", DataTypeEnum.adVarWChar)

cat.Tables.Append(tbl)

con = Nothing

tbl = Nothing

cat = Nothing

LeafFileName = "c:\文件路径\" & "555" & ".mdb"

LeafFormName = TextBox1.Text

LeafOleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LeafFileName & ";" & "Jet OLEDB:Database Password='" & LeafPassWord & "';")

LeafOleDbCommand = New OleDbCommand("select * from" & LeafFormName, LeafOleDbConnection)

LeafOleDbCommand = New OleDbCommand("select count(*) from " & LeafFormName, LeafOleDbConnection)

LeafOleDbDataAdapter = New OleDbDataAdapter

LeafCommandBuilder = New OleDbCommandBuilder(LeafOleDbDataAd