Dim MySqlBKText As String
  Dim rsBKTemp As Recordset
 
  On Error GoTo FeldBK_Anzeigen_Fehler
  frm.lblBK = s1000.K_Bk
  If s1000.K_Bk = "00" Or s1000.K_Bk = "  " Then
    frm.lblBKText = "Kein Besonderes Kennzeichen vorhanden"
  Else
    MySqlBKText = "Select * from BKText"
    Set rsBKTemp = BS_Sql1.OpenRecordset(MySqlBKText, dbOpenDynaset)
    If rsBKTemp.RecordCount = 0 Then
      frm.lblBKText "Keine Textbeschreibung für Feld 'BK' gefunden !"
    Else
      rsBKTemp.MoveLast     ' wegen ODBC-Error 3146
      rsBKTemp.MoveFirst
      ' Ermitteln Text zu Feld BK
      rsBKTemp.FindFirst "BK = '" & s1000.K_Bk & "'"
        If rsBKTemp.NoMatch Then
          frm.lblBKText = "Kein Besonderes Kennzeichen vorhanden"
        Else
          frm.lblBKText = rsBKTemp!BKKurzText
        End If
    End If
    rsBKTemp.Close
  End If