Loope gennem en database - sådan cirka

Hej
Jeg er ny i det her, og roder lidt med at lave en funktion, der kigger i en database, hvor den finder nogle personer, som den så sender en mail til.

Jeg er nået frem til følgende, og kan godt få den til at sende mail, men jeg kan ikke finde ud at kombinere det jeg henter i db med at sende en mail.
Jeg vil altså gerne sende en mail til "personale.mail" med indholdet "id"?

På forhånd tak.

Kode:

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Mail

Namespace OpgaveMail

Public Class ClassOpgaveMail

Private Function DbConnection() As String
Return "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\inetpub\wwwroot\database\calendar.mdb"
End Function
   
Public Function SendMail() As String
Dim MailSet As New DataSet
Dim DbConn As New OleDbConnection(DbConnection())
Dim sqlCmd As New OleDbCommand("SELECT personale.mail, Id, EventDate, MailInitialer, MailVarsel FROM Events WHERE Status=TRUE AND Afsluttet=False AND MailSendt=False INNER JOIN MailInitialer ON Personale.initialer", DbConn)
Try
DbConn.open
                   
Dim objMailMessage As MailMessage
Try
objMailMessage = New MailMessage
objMailMessage.From = "tester@mail.dk"
objMailMessage.To = "modtager@mail.dk"
objMailMessage.Subject = "Test mail fra Opgavemail"
objMailMessage.Body = "Dette er så body af testmail"
Catch
Return "Mail IKKE Dannet"
End Try
Try
SmtpMail.SmtpServer = "Smtp.mail.dk"
SmtpMail.Send( objMailMessage )
'Return "Mail er sendt"
Catch
Return "Mail er ikke sendt"
End Try
Try
DbConn.Close()
Return "Forbindelse Lukket"
Catch
Return "Forbindelsen er IKKE lukket"
End Try
Catch   
Return "Der blev ikke oprette nogen databaseforbindelse"
End Try
   
End Function
   
End Class

End Namespace