Private Sub cmdShowAKUNR_Click() 
  With Tabelle_stamm
    <font color=green>' aktiver Index </font>
    .Index = "AKUNR" 
 
    <font color=green>' Suchroutine </font>
    .Seek "=", txtAKUNR.Text 
    If Not .NoMatch Then 
      lblAName1.Caption = FeldInhalt(.Fields("AName1"))
      lblAName2.Caption = FeldInhalt(.Fields("AName2"))
      lblAName3.Caption = FeldInhalt(.Fields("AName3"))
      lblAName4.Caption = FeldInhalt(.Fields("AName4"))
      lblAStrasse.Caption = FeldInhalt(.Fields("AStrasse"))
      lblALK.Caption = FeldInhalt(.Fields("ALK")) + "-" 
      lblAPLZ.Caption = FeldInhalt(.Fields("APLZ"))
      lblAOrt.Caption = FeldInhalt(.Fields("AOrt"))
    Else 
      MsgBox ("Kein Datensatz gefunden!"), vbCritical 
    End If 
  End With
End Sub