For Each row As DataRow In objDataSet.Tables(catversion).Rows
 
'To, Body, Subject etc werden ausgeüfllt
 
AddHandler send.SendCompleted, AddressOf SmtpClient_OnCompleted
 
   Try
                'Mail senden
                send.SendAsync(mail, Nothing)
                sendetMail = sendetMail + 1
 Catch ex As Exception
                With row
                    .Item("MailStand") = "20"
                    .Item("Fehler") = ex.Message
                    .Item("DatumMail") = Date.Now
                End With
 
            End Try
        Next