Private Sub Grid1_RowChange(ByVal nRow As Long)
 
Set RS = New ADODB.Recordset
SQL = "SELECT VorName, NachName, Info FROM Tabelle2" '  WHERE Datum = '" &" & _
  "Grid1.Text(nRow, "Datum") "
     RS.CursorLocation = adUseClient
     RS.Open SQL, oConn, adOpenDynamic, adLockOptimistic, 0
 
  With Grid2
 
    Set .Recordset = RS 
    .Refresh
  End With
End Sub