VB2010创建Access数据与数据表

从VB6转到VB2010很是不习惯，很多不一样的，然后就是百度里泡着。

为了连接数据库，在网上找了好多动态创建Access的例子，发现都很复杂，不知道为什么要那么复杂。其实以前的一个VB6的例子其实很简单。

VB2010中还是要引用一个ADO Ext x.x和一个Active Data Objects x.x

        If Dir(Application.StartupPath & "\数据库.mdb", vbDirectory) = "" Then
            '创建一个空的数据库
            Dim Cata As New ADOX.Catalog
            Cata.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\数据库.mdb;Jet OLEDB:Database Password=密码")
            Cata = Nothing
            '连接数据库并创建新表
            Dim Con As ADODB.Connection = New ADODB.Connection
            Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\数据库.mdb;Jet OLEDB:Database Password=密码")
            Dim MyTabe As String
            MyTabe = "Create Table [MySet]([ID]AutoIncrement,[User]String,[Group]String)"
            Con.Execute(MyTabe)
            Con.Close()
            Con = Nothing
        End If