Public Function Suz()
    DB.RecordSource = "Select * From TBL_ETIKET where  [ADI] like '" _
    & TxtRAdi.Text _
    & "%' and [PROTOKOLNO] like '" & TxtRProtokol.Text _
    & "%' and [TCKIMLIKNO] like '" & TxtRTC.Text _
    & "%' and [ILACADI] like '" & CmbRIAdi.Text _
    & "%' and [ILACDOZU] like '" & CmbRIDozu.Text _
    & "%' and [UYGULAMASEKLI] like '" & CmbRUygulama.Text _
    & "%' and [KSDAKIKA] like '" & TxtRD.Text _
    & "%'and [KSSAAT] like '" & TxtRS.Text _
    & "%'and [KUR] like '" & CmbRKur.Text _
    & "%'and [KSERUMSF] like '" & CmbRSerumSF.Text _
    & "%'and [KSERUMSFML] like '" & TxtRSFM.Text _
    & "%'and [KSERUMD] like '" & CmbRSerumD.Text _
    & "%'and [KSERUMDML] like '" & TxtRDM.Text _
    & "%'and [ISIKTANKORUMA] like '" & CmbRIsik.Text _
    & "%'and [HAZIRLAYANADI] like '" & CmbRHazirlayan.Text _
    & "%'and [UYGULAYANADI] like '" & CmbRUygulayan.Text _
    & "%'and [SAKLAMASEKLI] like '" & TxtRSaklama.Text & "%'"
    DB.Refresh
End Function