Подключение к sql-server - VB

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

Добрый день!
у меня есть код VB, который подключается к SQL-server и берет оттуда некоторые данные. код рабочий. Дело в том, что при подключении у меня используется апроверка подлинности windows. необходимо предусмотреть, кроме этого, подключение к SQL, используя определенный логин и пароль.
Пожалуйста, подскажите, как это реализовать. Текст кода приведен ниже
Огромное спасибо!

Add_Results_Of_ADO_Recordset(stSQL  , wsSheet  Worksheet, rnStart  Range, Flag  )
 cnt  ADODB.Connection
 rst  ADODB.Recordset
 k  
 IC, DS, LG, PS, stADO  

 ThisWorkbook.Worksheets().CheckBox4.Value = True 
        IC = ThisWorkbook.Worksheets().Cells(, )
        DS = ThisWorkbook.Worksheets().Cells(, )

            stADO =  & _
             & IC &  & _
             & DS

        IC = ThisWorkbook.Worksheets().Cells(, )   
        DS = ThisWorkbook.Worksheets().Cells(, )   
        LG = ThisWorkbook.Worksheets().Cells(, )   
        PS = ThisWorkbook.Worksheets().Cells(, )  

     cnt =  ADODB.Connection
         cnt
            .CursorLocation = adUseClient
            . stADO
            .CommandTimeout = 
             rst = .Execute(stSQL) 

     Flag = True 
         k =   rst.Fields.Count - 
            wsSheet.Cells(rnStart.Row - , rnStart.Column + k).Value = rst(k).
         k

    rnStart.CopyFromRecordset rst
    
        rst.
        cnt.
     rst = 
     cnt = 
 

Решение задачи: «Подключение к sql-server»

textual
                            Листинг программы 
                        
                            Provider=SQLNCLI10;Server=myServerAddress;Database=myDataBase;Uid=myUsername; Pwd=myPassword;