sevSQL = "SELECT " & _
             "Factory.ID, " & _
             "Factory.KontaktID, " & _
             "Kontakte.Name & "", "" & " & "Kontakte.Vorname & "" - "" & " & _
             "Kontakte.Strasse & "", "" & " & "Kontakte.PLZ & ""-"" & " & _
             "Kontakte.Ort AS KontaktCardInfo, " & _
             "Factory.LastAccess " & _
             "FROM Factory " & _
             "LEFT JOIN Kontakte ON Factory.KontaktID = Kontakte.ID "

        With .Columns(5)
            .Position = 3
            .ColType = TYPE_TEXT Or TYPE_IMAGE
            .HeadAlign = ALIGNMENT_LEFT
            .Align = ALIGNMENT_LEFT
            .Key = "KontaktCardInfo"
            .Caption = "Inhaber (Kontakt)"
            .Width = 6000
            .Visible = True
            .Image = 3
        End With

Private Sub Grid_OnImageClick(ByVal nRow As Long, ByVal nCol As Long, nImage As _
  Long, Button As Integer, Shift As Integer)
 
    If Button = 2 Then
        If nImage = 3 Then
            Call GoTo_KontaktID
        End If
    End If
 
End Sub

CardManager (SmartCard Tools a la CARD)