Public Const CS_PROVIDER As String =  "Provider" 
Public Const CS_SERVER As String =  "Data Source" 
Public Const CS_DATABASE As String =  "Initial Catalog" 
Public Const CS_USER As String =  "User Id" 
Public Const CS_PASSWORD As String =  "Password" 
Public Const CS_STATUS As String =  "Connection Status" 

Private m_Provider As String
Private m_Server As String
Private m_Login As String
Private m_Password As String
Private m_Database As String

Public Function MakeConnectionString() As String
    MakeConnectionString = Join(Array( _
        Join(Array(CS_PROVIDER, m_Provider),  "=" ), _
        Join(Array(CS_SERVER, m_Server),  "=" ), _
        Join(Array(CS_DATABASE, m_Database),  "=" ), _
        Join(Array(CS_USER, m_Login),  "=" ), _
        Join(Array(CS_PASSWORD, m_Password),  "=" )), _
     ";" )
End Function

Private Sub InitDefConnectionProps()
    m_Provider =  "sqloledb" 
    m_Server =  "(local)"  '' или  192 . 168 . 0 . 1  или имя сервера
    m_Database =  "Stock" 
    m_Login =  "sa" 
    m_Password = ""
End Sub