Private Sub Grid1_RowChange(ByVal nRow As Long)
  Dim oRs As ADODB.Recordset
  Dim sSQL As String
 
  ' Kontakte des Kunden anzeigen
  With Grid2
    .Caption = "Kontakte für Kunde: " & Grid1.Text(nRow, 1) & " " & Grid1.Text( _
      nRow, "Name")
 
    sSQL = "SELECT ID, Datum, Info FROM tblKontakte WHERE KdNr = '" & _
      Grid1.Text(nRow, "KdNr")
 
    Set oRs = New ADODB.Recordset
    oRs.CursorLocation = adUseClient
    oRs.Open sSQL, oConn, adOpenStatic, adLockOptimistic
 
    Set .Recordset = oRs
    .Refresh
  End With
  oRs.Close
  Set oRs = Nothing
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de