Dim Cat As New ADOX.Catalog' 1) Yeni Veritabanı oluşturuluyor Set Cat = New ADOX.Catalog Cat.Create "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & yol & ComboBox1.Value & ".mdb;" Set Cat = Nothing