Exportar datos de listbox a tabla(sentencias SQL)

Todos Expertos una consulta como puedo pasar todos los datos que contenga un listbox a una tabla, con vba se hace así:

With Hoja1

Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1

For I = 0 To ListBox1.ListCount - 1

.Range("A" & Uf) = ListBox1.List(I, 0) 'Columna 1
.Range("B" & Uf) = ListBox1.List(I, 1) 'Columna 2
.Range("C" & Uf) = ListBox1.List(I, 2) 'Columna 3

Uf = Uf + 1
Next I

Yo quiero hacer lo mismo pero usando sentencias SQL donde hago referencia a los campos de la tablas y no a celdas como es el caso del ejemplo, intente de esta manera pero no sale:

Sql = "select * from [productos$]"

Rs.Open Sql, Cnn, 1, 1

i = 0

With Lista
AddNew
Do While Rs.EOF = False
Rs.MoveFirst
Rs!ID = .List(i, 0)
Rs!CODIGO = .List(i, 1)
Rs!ARTICULO = .List(i, 2)
Rs!PVP = .List(i, 3)
Rs!IVA = .List(i, 4)
Rs!MEDIDA = ComboBox1.List(ComboBox1.ListIndex, 0)
Rs!CATEGORIA = ComboBox2.List(ComboBox2.ListIndex, 0)
Rs!STOCK_MINIMO = .List(i, 7)
Rs!ESTATUS = .List(i, 8)

Rs.MoveNext

Loop