主题：不能创建数据库

Dim pwd As String
If InputValue(pwd, "筛选","请输入创建数据库名称:")
End If

dim cmd as newcommand
cmd.connectionname=“sql”

cmd.CommandText = "CREATE DATABASE  '" & pwd & "'"
cmd.ExecuteNonQuery()

这个代码是创建数据的代码，但却不执行了。