Private Sub sevGrid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
  If Button = vbRightButton Then
    ' Rechtsklick: DragMode starten...
    sevGrid1.Drag
  End If
End Sub

Private Sub sevGrid2_DragDrop(Source As Control, X As Single, Y As Single)
  If Source.Name = "sevGrid1" Then
    Dim i As Long
 
    ' Datenzeile kopieren
    With sevGrid2.Recordset
      .AddNew
      For i = 0 To .Fields.Count - 1
        .Fields(i).Value = sevGrid1.Recordset.Fields(i).Value
      Next i
      .Update
    End With
 
    ' Ansicht aktualisieren
    sevGrid2.Refresh
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de