Данные из одномерного массива в SQL запрос (или как уменьшить код)

ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" _
    & ActiveWorkbook.Path & "\BD.accdb; Jet OLEDB:Database;" '<----------------------------------- Создаём подключение к БД и указываем к ней путь
     
    Dim con As New ADODB.Connection
    con.Open ConnectionString
    
    On Error GoTo error_BD '<------------------- Если ошибка, то переходим в процедуру error_BD
    con.Execute ("SELECT TOP 1 * FROM DATA")
    On Error GoTo 0
    
    On Error GoTo error_UNIC
    con.Execute ("INSERT INTO DATA(C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15, C16, C17, C18, C19, Users) VALUES (" & C1 & ", " & C2 & "," _
               & "" & C3 & ", " & C4 & ", " & C5 & ", " & C6 & ", " & C7 & ", " & C8 & ", " & C9 & ", " & C10 & ", " & C11 & ", " & C12 & ", " & C13 & ", " & C14 & ", " & C15 & ", " & C16 & ", " & C17 & ", " & C18 & ", " & C19 & ", 'Anton');") '<----------- Выполняем SQL скрипт
    On Error GoTo 0
    
    con.Close '<------------------- Закрытваем подключение к БД
    
    Exit Sub

With Sheets("DATA")
        r = .Columns(1).Rows(65536).End(xlUp).Row + 1
        For i = 1 To 19
            c = i
            .Cells(r, c) = Me.Controls("TextBox" & i).Value
        Next i
    End With

Me.Controls("TextBox" & i).