CDO og emails

Jeg vil gerne have sendt nogen mails fra min database... jeg har nogen kunder med emails, som jeg gerne vil sende en html-mail til.
Jeg har følgende kode som jeg ikke rigtig kan hitte hoved og hale i men jeg har fået det direkte fra Microsofts egen hjemmeside. Det ligger som et eksempel:

      'Creating and sending the message
        Dim iMsg As New CDO.message
        Dim iConf As New CDO.Configuration
 
        Dim Flds As ADODB.Fields
        Set Flds = iConf.Fields
 
        With Flds
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServer) = "smtp.etellerandet.net"
            .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
            .Item(cdoSMTPAuthenticate) = cdoBasic
 
          ' IMPORTANT: Storing user names and passwords inside source code
          ' can lead to security vulnerabilities in your software. Do not
          ' store user names and passwords in your production code.
          '.Item(cdoSendUserName) = "brugernavn"
          '.Item(cdoSendPassword) = "password"
 
          '.Item(cdoURLProxyServer) = "server:80"
          '.Item(cdoURLProxyBypass) = "<local>"
          '.Item(cdoURLGetLatestVersion) = True
         
            .Update
        End With

        With iMsg
            Set .Configuration = iConf
            .To = email
            .subject = subject
            .CreateMHTMLBody message
            .Send
        End With

Jeg kan ikke rigtig finde ud af hvordan det virker og jeg ved ikke helt hvor meget jeg skal have med... og om jeg mangler noget... det som jeg heller ikke kan forstå er at jeg ikke kan lave den .Update jeg prøver at lave...´hvis jeg compiler giver den en fejl og siger Method or Data member not found.

Hvad skal der til før jeg kan sende en masse emails på denne måde... er der nogen der kan hjælpe?

Det skal lige siges at dette bare er måden hvorpå jeg vil sende emails... uden om ligger der en while løkke som gennemgår mine kunder og sender dem alle (eller udvalgte) en mail.