Set CN = New ADODB.Connection
  With CN
    .Provider = "SQLOLEDB.1"
    .Properties("Data Source").Value = "211.23.103.1461"
    .Properties("Initial Catalog").Value = "master"
    .Properties("Persist Security Info").Value = False
    .Properties("User ID") = "sa"
    .Properties("Password") = "password"
    .CursorLocation = adUseClient
    .Open
    MsgBox .State
  End With