برنامه کار با دیتابیس sql

سلام
یه نمونه برنامه کار با دیتابیس Sql میخوام که کدهای ایجاد دیتابیس رو هم داشته باشه اگه کسی داره بی زحمت بده . :11:

کد:

---

Dim cn As New ADODB.Connection

cn.Open "Connection string to sql server"

cn.Execute "SQL CREATE DROP and other Commands"

---

دستور ایجاد Database هم اینه که باید جلوی Execute وارد کنی:

CREATE TABLE "table_name"
("column 1" "data_type_for_column_1",
"column 2" "data_type_for_column_2",
... )

نمونه:

CREATE TABLE customer
(First_Name char(50),
Last_Name char(50),
Address char(50) default 'Unknown',
City char(50) default 'Mumbai',
Country char(25),
Birth_Date date)

:11: ممنون از راهنماییت تستش میکنم