hjælp til function

jeg følgende til at rette i mit recordset

dim ar as ADODB.recordset

set ar=new adodb.recordset
ar.open {SQL Statement}
ar.addnew
ar!ID=intID
ar!Name=strName
ar.update


jeg ville gerne have puttet det ned i en function, som kan kaldes når man skal indsætte nye rækker i rocordsettet.
function skal tage en sql streng og et array med felterne som skal udfyldes

kunne forestille mig følgende

function update(sqlstr, linier)

dim ar as ADODB.recordset

set ar=new adodb.recordset
ar.open {sqlstr}
ar.addnew
for each XX in linier

ar!xx(felt)=xx(data)
next

ar.update

End Function

ved ikke om det kan lade sig gøre på denne måde håber i kan hjælpe mig :-)