kako ispisati poruku ako u bazi ne pronađe ništa???

[ PhoBoS4Fear @ 24.09.2006. 15:23 ] @

imam ovo:

Code:

                If txtIme.Text = "Unesi ime..." Or txtIme.Text = "" Then
                    MsgBox("       Unesite kriterij!      ", MsgBoxStyle.OkOnly, "Upozorenje ...")
                Else
                    Me.KolegeTableAdapter_Kriteriji.FillByKriterijiIme(Me.StudosPlaner_DBDataSet.Kolege_Kriterij, txtIme.Text)
                End If

Htio bih da mi ispiše poruku

Code:
MsgBox(" Zapis nije pronađen u bazi! ", MsgBoxStyle.OkOnly, "Upozorenje ...")

ako u bazi ništa ne nađe!

[ Shevchenko @ 25.09.2006. 15:17 ] @

Umesto ovog :

Code:

Else
Me.KolegeTableAdapter_Kriteriji.FillByKriterijiIme(Me.StudosPlaner_DBDataSet.Kolege_Kriterij, txtIme.Text)
End If

stavi ovo:

Code:

Else
If Me.KolegeTableAdapter_Kriteriji.FillByKriterijiIme(Me.StudosPlaner_DBDataSet.Kolege_Kriterij, txtIme.Text)== null Then
MsgBox(" Zapis nije pronađen u bazi! ", MsgBoxStyle.OkOnly, "Upozorenje ...")
End If