Private Sub sevGrid1_CellDblClick(ByVal nRow As Long, ByVal nCol As Long)
Dim LFDNR As String
Dim Test
LFDNR = "Jung%"
Test = sevGrid1.Text(nRow, 6) & "%"
Test = Trim(Test)
frm_ADRESSENSTAMM.Adodc1.Recordset.Find ("ADR_Name Like '" & Test & "'")
frm_Adresseensuche.Hide
End Sub