[code=c]
    '' 默认database为master
    connStr = "Driver={SQL Server};Server=" & strServer & ";Uid=" & strUser & ";Pwd=" & strPwd & ";"
    Set conn = New Connection
    conn.Open connStr

    sqlStr = "select Name from dbo.sysdatabases where Name = '数据库名';"

    Set rs = New Recordset
    rs.Open sqlStr, conn, adOpenKeyset, adLockOptimistic

    If rs.RecordCount = 0 Then
        '数据库不存在，则创建数据库
        rs.Close
        conn.BeginTrans
        sqlStr = "Create Database 数据库名;"
        conn.Execute sqlStr
        conn.CommitTrans
    Else
        rs.Close
    End If

    '' 切换到数据库GROUTING
    sqlStr = "use GROUTING;"
    conn.Execute sqlStr

    '查询是否所有的表都存在，不存在则创建
    sqlStr = "select ID from DBO.sysobjects where id = object_id('数据库名..表名')"
    rs.Open sqlStr, conn, adOpenKeyset, adLockOptimistic
    '如果不存在表，则Create Table.
    ....
[/code]

天天学习每次都在我前面回答问题