Соединение к MS SQL Server через VB6

Формулировка задачи:

Дело вто в чем! Пользователь вводит данные: Имя пользователя Пароль Имя логического сервера Имя базы данных Необходимо по этим параметрам кот записываются в переменные проверить подсоединение к БД. Т.е. узнать существует такая БД Сревер и т.п. И если есть то хорошо бы было выставить на форме окно кот само отображало список доступных логических SQL Servrov и и список баз данных. Наподобие DirListBox или DriveListBox.... Помогите пожалуйста подскажите код подключения к БД...... Или дайте ссылочку... Спасибо всем!!!

Решение задачи: «Соединение к MS SQL Server через VB6»

textual
                            Листинг программы 
                        
Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Provider = "SQLOLEDB.1"
    cn.ConnectionString = "Persist Security Info=False;User ID=serg;Initial Catalog=Demo1;Data Source=SERVERDATA"
    
   On Error GoTo MsgBox1
    
    cn.Open
    
    MsgBox ("Все ок !!!")
    
   End