用VB判断MYSQL数据库名称是否存在，大侠们给段源码吧！
大侠，用VB判断MYSQL数据库名称***是否存在，如果不存在就新建数据库的问题？大侠们看清楚啊，是数据库名称而不是数据表，我在网上查了很多资料就是解决不了，帮忙啊！大侠，本人没什么分，就20分，纯粹是帮忙吧！是MYSQL，不是MSSQL哦！
[解决办法]

MYsql = "DRIVER={MySQL ODBC 3.51 Driver};server=127.0.0.1;user id=root;
password=root;database=information_schema"
        myconn.Open MYsql
        myrecord.Open "select table_name from schemata 
where schema_name ='databasename'", myconn, adOpenStatic, adLockReadOnly
        If myrecord.EOF Then
            MYsql = "CREATE DATABASE databasename" 
            myconn.Execute MYsql
             MsgBox "成功建立数据库", vbInformation
        Else
            MsgBox "建数据库失败,数据库已经存在!"
        End If