Option Explicit Dim cn As New ADODB.Connection Dim i, j, LastRow, vbox As Integer Dim SQL_command, a, b, c, var1, var2, vpo, var3, var4, var5, var6, id As String Dim ws As Worksheet Sub ...