关于数据库建表的问题！

[ccone1111]

我想做一个vb程序里面有一个按纽，点击他sqlsever中就有一个新表创建！这个代码怎么写啊？谁帮我啊？

[jeff__lueny]

晕,用ADO啊

[jeff__lueny]

'globe variable
Dim cn As New ADODB.Connection

Private Sub cmdGet_Click()
Dim SQL As String

cn.Open "Driver={SQL Server};Server=abc;Uid=abc;Pwd=abc;Database=abc"
SQL = "Create Table tablename(ID int IDENTITY,aaa nvarchar(10),bb nvarchar(50),aads money)"

cn.Execute SQL

end sub

[zscjp]

先在菜单中选“工程”，“引用”，在列表中选择
Microsoft ActiveX Data Objects
下面是所要添加的代码。
Public cnnDb As ADODB.Connection '公用数据连接
cnnString = "Provider=SQLOLEDB.1;Password=PassWord;Persist Security Info=True;User ID=sa;Initial Catalog=DataBaseName;"
Set cnnDb = New ADODB.Connection
With cnnDb
.ConnectionString = cnnString
.Open
End With

Private Sub command1_Click()
Dim sql as String
sql="create table tableName ......."
cnndb.execute sql
end Sub

[ccone1111]

我想判断数据库里有没有这个表怎么判断？