Dim pwd As StringIf InputValue(pwd, "筛选","请输入创建数据库名称:")
dim cmd as newcommandcmd.connectionname=“sql”
cmd.CommandText = "CREATE DATABASE '" & pwd & "'"cmd.ExecuteNonQuery()
End if
貌似应该这样写吧?