Это код для копирования в буфер записи рекордсета, связанного с ДатаГридом (Публичный - потому что в модуле лежит). В цикле - копирование (получение) значений полей в записи, соответствующих конкретным ячейкам. Может быть, Вам пригодится.
Public Sub CopyCurrentToClipboard(rst As ADODB.Recordset)
Dim i As Integer
Dim str As String
If Not rst.BOF Then
If Not rst.EOF Then
For i = 1 To rst.Fields.Count - 1
str = str & rst.Fields(i).Name & vbTab & rst.Fields(i) & vbCrLf
Next
Else
MsgBox "Необходимо выделить запись"
Exit Sub
End If
Else
MsgBox "Необходимо выделить запись"
Exit Sub
End If
Clipboard.Clear
Clipboard.SetText str
End Sub
Не уверен, правда, что код самый лучший, я не программист :o)|||