Dim pwd As StringIf InputValue(pwd, "数据库名称","请输入创建数据库名称:")End If
cmd.connectionname=namecmd.CommandText = "CREATE DATABASE " & pwd & ""cmd.ExecuteNonQuery()