Private Sub MSHFlexGrid1_DblClick()
    Set AdoRsF = New adodb.Recordset
 
    With MSHFlexGrid1
        Set AdoRsF = FilterField(AdoRS, .ColHeaderCaption(0, .Col), .TextMatrix( _
          .Row, .Col))
        Set MSHFlexGrid1.DataSource = AdoRsF
        Set AdoRsF = Nothing
    End With
 
End Sub
 
Public Function FilterField(rstTemp As adodb.Recordset, _
    strField As String, strFilter As String) As adodb.Recordset
 
    ' Setzen eines Filters für das angegebene Recordset-Objekt und
    ' Öffnen eines neuen Recordset-Objekts.
    rstTemp.Filter = strField & " = '" & strFilter & "'"
    Set FilterField = rstTemp
 
End Function