Private Function uLinkDB(SN As String, SDB As String, SUN As String, SUP As String) As Boolean
    Set con = New Connection
    uLinkDB = False
    On Error GoTo errUSv
    con.ConnectionString = "User ID =" & SUN & ";Password =" & SUP & ";Data Source=" & SN & ";Initial Catalog=" & SDB
    con.Provider = "SQLOLEDB"
    uLinkDB = True
errUSv:
End Function我该如何创建数据库啊