建立ACCESS資料庫

'新增Access資料庫
Dim CreaStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataSource
Dim Catalog As Object = CreateObject("ADOX.Catalog")
Catalog.Create(CreaStr)