Dim rst As ADODB.Recordset
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "select .... тут нужный запрос", con, adOpenForwardOnly, adLockReadOnly
Do While Not rst.EOF
'здесь формирование нужных данных и вызов функции отправки передавая в нее адрес, заголовок и все что нужно
' обращение к полю текущей записи
' rst![имяПоля]
rst.movenext
loop
|