Visual Basic 6 Code Searching "Gadis Cantik"

Private Sub CariGadis_Click()
DataCewek.Refresh
DataCewek.Recordset.Index = "Gadis_Index"
DataCewek.Recordset.Seek "=", TxtCariGadis

If DataCewek.Recordset.NoMatch Then
MsgBox "Data Gadis Sudah ada Pacar.", vbExclamation, "Cari Pacar LAgi"
TxtCarGadis.SetFocus
TxtCariGadis.Text = ""
Else

Text1.Text = DataCewek.Recordset!Name
Text2.Text = DataCewek.Recordset!Birthday
Text3.Text = DataCewek.Recordset!Address
Text4.Text = DataCewek.Recordset!No_Handphone
Text5.Text = DataCewek.Recordset!weight
Text6.Text = DataCewek.Recordset!Height
Text7.Text = DataCewek.Recordset!Skin

Dim NamaFile As String
Dim kelompok As String
Dim Gambar As Picture
kelompok = "Bitmap (*.bmp)|*.bmp|GIF (*.gif)|*.gif"
kelompok = kelompok & _
"|JPEG (*.jpg)|*.jpg|Icon (*.ico)|*.ico"
kelompok = kelompok & _
"|Cursor (*.cur)|*.cur|Metafile (*.wmf)|*.wmf"
kelompok = kelompok & "|Extended Metafile (*.emf)|*.emf"
kelompok = kelompok & "|Run Length Encoded (*.rle)|*.rle"


On Error GoTo ErrorHandler
NamaFile = Text1.Text
Set Gambar = LoadPicture(NamaFile)
Image1.Picture = Gambar

Exit Sub
ErrorHandler:
MsgBox "File tidak dapat dibuka karena Gadisnya ternyata "
End If

End Sub