Значения перекрываются при экспорте с сервера SQL

Question

Sub SavedConfiguration()

    Dim cnn1 As New ADODB.Connection
    Dim mrs As New ADODB.Recordset
    Dim iCols As Integer
    Const DRIVER = "{SQL Server}"
    Dim sserver As String
    Dim ddatabase As String


    sserver = Worksheets("Settings").Range("D11").Value
    ddatabase = Worksheets("Settings").Range("D12").Value

    Set cnn1 = New ADODB.Connection
    cnn1.ConnectionString = "driver= " & DRIVER & ";server=" & sserver & ";database=" & ddatabase & ""
      cnn1.ConnectionTimeout = 30
      cnn1.Open

    sQry = Worksheets("SQL-COMMON").Range("B3").Value

    mrs.Open sQry, cnn1



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

'    Sheet5.Range("A2").CopyFromRecordset mrs
    Worksheets("SavedConfig").Range("A2").CopyFromRecordset mrs



    mrs.Close
    cnn1.Close

End Sub

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