Получение ошибок и нужны предложения по автоматизации

Question

Sub Conn2SQL()

    Dim cnn1 As New ADODB.Connection
    Dim mrs As New ADODB.Recordset
    Dim iCols As Integer

    Set cnn1 = New ADODB.Connection
      cnn1.ConnectionString = "driver={SQL Server};server=MyDBServer;uid=MyuserID;pwd=mypassword;database=MyDB"
      cnn1.ConnectionTimeout = 30
      cnn1.Open

    SQry = "use MyDB select * from TableName"

    mrs.Open SQry, cnn1

    For iCols = 0 To mrs.Fields.Count - 1
        Worksheets("SavedConfig").Cells(1, iCols + 1).Value = mrs.Fields(iCols).Name
    Next

    SavedConfig.Range("A2").CopyFromRecordset mrs

    mrs.Close
    cnn1.Close

End Sub

Я назвал свой рабочий лист SavedConfig вместо Sheet1, но требуется объект ошибки 424. Кроме того, вместо жесткого кодирования запроса выше, мы можем вместо этого выбрать запрос из другого листа Excel.

---

Как сделать строку подключения более динамичной c вместо жесткого ее кодирования, вместо этого собирая значения из ячеек таблицы Excel.

cnn1.ConnectionString = "driver={SQLServer};server=MyDBServer;uid=MyuserID;pwd=mypassword;database=MyDB"