Attribute VB_Name = "link"

Public Sub link()
    Set Mcon = New ADODB.Connection
    Mcon.ConnectionString = "Provider=sqloledb;Data Source=zhw;Initial Catalog=SuperMarketdb;User Id=sa;Password=820527;"
    Mcon.Open
End Sub