Listing 33.6 33LIST06.TXT  Kod poszukiwania patnika

  SQLSTR = "Select * from payee where payeename = '" & ent_payee.Text & "'"
  Set PaySet = ChkDB.OpenrecordSet (SQLSTR, dbOpenDynaset)
  If PaySet.NoMatch Then
    MsgBox "No Payee Selected", vbCritical, App.Title
    Exit Sub 
  End If
  PayKey.Caption = Str(PaySet.RecordSet("payeeid" ))
  PaySet.Close
