Private Sub Abfrage_Click()
On Error GoTo Err_Abfrage_Click
 
    Dim Name As String
    Dim What As String
 
    What = Form_Formular1.Text11.Text
    Name = "Abfrage"
    DoCmd.OpenQuery Name
    DoCmd.FindRecord What, acEntire
 
Exit_Abfrage_Click:
    Exit Sub
 
Err_Abfrage_Click:
    MsgBox Err.Description
    Resume Exit_Abfrage_Click
 
End Sub