Private Sub cboArtikelNr_Click()
    Dim strSql As String
    Dim iRet As Integer
    strSql = "nr LIKE '" & cboArtikelNr.Text & "%'"
    iRet = DBGrid.FindFirst(strSql, True)
End Sub
 
Private Sub cboArtikelTitel_Click()
    Dim strSql As String
    Dim iRet As Integer
    strSql = "beschreibung LIKE '" & cboArtikelTitel.Text & "*'"
    iRet = DBGrid.FindFirst(strSql, True)
End Sub

Private Sub cmdBeide_Click()
    Dim strSql As String
    Dim iRet As Integer
    strSql = "beschreibung ='" & cboArtikelTitel.Text & "' AND nr ='" & _
      cboArtikelNr.Text & "'"
    iRet = DBGrid.FindFirst(strSql, True)
End Sub