Visual Basic - Email y Crystal Reports

Hola espero me puedan ayudar, les cuento: ya hice mi aplicacion y en primer lugar necesito que segun los datos cargados en un DBGrid en una columna llamada Sucursal me busque los valores en una tabla llamada sucursal para que me traiga las direcciones electronicas dee dicha sucursal le estoy aplicando una instruccion sql pero parece no funcionar porque me trae todas las direcciones y no las que muestra el Dbgrid: adjunto el codigo utilizado:
Function EnviarCorreo()


Dim Direcciones As String
Dim Detalle As Recordset
Dim BuscarDetalle As String



Set Detalle = DDetalle.Recordset
BuscarDetalle = Detalle.Fields("sucursal")

CorreoSesion.Username = Username
CorreoSesion.NewSession = True
CorreoSesion.DownLoadMail = False
CorreoSesion.SignOn
CorreoMensajes.SessionID = CorreoSesion.SessionID

Detalle.MoveFirst
DSucursales.Recordset.MoveFirst
DSucursales.RecordSource = "select * from [sucursales]where[" & DBGrid1.Columns(0) & "]=" & BuscarDetalle

Do While Not DSucursales.Recordset.EOF

Direcciones = DSucursales.Recordset.Fields("email") & Direcciones
DSucursales.Recordset.MoveNext

Loop

CorreoMensajes.MsgIndex = -1
CorreoMensajes.RecipDisplayName = Direcciones '& " [email protected];"
CorreoMensajes.ResolveName
CorreoMensajes.MsgSubject = "Inicio de Plan, promoción: " & TxtPlan.Text
CorreoMensajes.MsgNoteText = "Inicio de Plan promoción: " & TxtPlan.Text & " Confirmar recibido, responder a: " & Username %