مشكلة في ارسال ايميل الى كل المشتركين

السلام عليكم ورحمة الله وبركاته

اخواني الكرام

اريد ارسال ايميل الى كل المشتركين عندي بالموقع

عندما ارسل الى مشترك واحد بزبط تمام التمام

لكن المشكاة عندما اريد ارسال الايميل الى كل المشتركين بعطيني error

ولشرح اعمق هذا هو الكود

Dim insert As String
        insert = "select Email from Users"
        Dim cmd As New SqlCommand(insert, cn)
        Dim a As String
        cn.Open()
        Dim dr As SqlDataReader = cmd.ExecuteReader

        Do While dr.Read
            a = CStr(dr.Item("Email"))
            Me.TOUSER.Text = a
            counter = counter + 1
                        ConfirmMsg.To = Me.TOUSER.Text
            ConfirmMsg.From = "admin@scgate.com"
            ConfirmMsg.Subject = Me.SubjectTxt.Text
            ConfirmMsg.BodyFormat = MailFormat.Html
            ConfirmMsg.Priority = MailPriority.High
            ConfirmMsg.Body = strMessage.ToString
            SmtpMail.SmtpServer = "Mail.scgate.com"
            SmtpMail.Send(ConfirmMsg)
                  Loop
        dr.Close()
                cn.Close()

طبعا ما يعطيني error على طول ببين زي اكنوا بلش بيعث الايملات وبعد ثواني بعطيني الerror

lمش عارف شو السبب بس بخمن انو السيرفير مش قادر يبعثهم وراء بعض بسرعة

هل اذا خليتوا يتأخر ثواني قبل ما يبعث الايميل الي بعدوا بزبط بس المشكلة ما بعرف كيف استخدم التايمر

يا ريت تساعدونا جزاكم الله كل خير