'Objeto recordset
Dim rec As Recordset
'Variable de Objeto para la conexión ADO
Dim db As Connection
Private Sub Form_Load()
'Creamos el objeto conexión
Set db = New Connection
'Cursor
db.CursorLocation = adUseClient
'Le pasamos la cadena de conexión y abrimos la base de datos (verificar la ruta)
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\bd1.mdb;"
'Creas un recordset
Set rec = New Recordset
'Llenamos el recordset con la consulta
rec.Open "select * from tabla1", db, adOpenStatic, adLockOptimistic
'Llenamos el datagrid con los datos del recordset anterior
Set Datagrid1.DataSource = rec
Set db = Nothing
End Sub
Private Sub Datagrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String
'Recorremos todos los datos de la columna en la que hicimos click
For i = 0 To Datagrid1.ApproxCount - 1
Datos = CStr(Datos & Datagrid1.Columns(ColIndex).CellValue(Datagrid1.GetBookmark(i)) & vbNewLine)
DoEvents
Next
'Copiamos los datos del datagrid al Clipboard
Clipboard.Clear
Clipboard.SetText Datos
End Sub