ساخت ديتا بيس و فيلدهاي مربوطه در vb از طريق کد

[daskar]

اين کد ساده ترين کدي بود که پيدا کردم تو سايت vb code اما موقع اجرا تو خط 3 خطا ميده آيا رفرنس خاصي رو بايد فعال کنم يا ..
Dim db1 As Database

Set db1 = CreateDatabase(App.Path & "\main", dbLangGeneral, dbEncrypt)

db1.Execute "CREATE TABLE Aries_Tranate(Bataan) " & "(FirstName CHAR (50), LastName CHAR (50), Age INT, Address NOTE,Aries_Tranate char(126));"
db.Close MsgBox("DataBase Created.")