SQL access fra Excel

Hej Eksperter!

Jeg har brug for at læse og skrive i en SQL database fra Excel via VBA. Jeg har lavet lidt kode som egentlig fungere udemærket, men den er temmelig langsom og virker noget klodset. Princippet i min kode er vist nedenfor:

with ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER=SQL Server;SERVER=SERVER\DATABASEPATH;UID=user;PWD=password;APP=Microsoft Office 2003;WSID=clientID;DATABASE=database", Destination:=ActiveSheet.Range("A1"))
for i = 0 to 10
    sqlString = "INSERT INTO ""dbo"".""table"" (col1,col2,col3) VALUES (" & ActiveSheet.Cells(i, 1).Value & ",value,value)"
        .CommandText = Array(sqlString)
        .Refresh
next i
end with 

Er der nogen der kan komme med et bud på en mere "rigtig" eller i det mindste mere elegant og hurtigere løsning??

På forhånd tak
Kasper