Membuat fungsi pencari data pada vb

sebenarnya bingung mau nulis apa, tapi gak papalah yang sedikit ilmu yang dimiliki bisa dibagi. fungsi ini dibuat untuk mencari data dalam database. database yang akan kita gunakan adalah database pada postingan kemarin...! lihat disini..! ok langsung z ya..!

pertama buat dulu module (catatan koneksi sudah dibuat, bisa liat cara buat koneksi disini)
cara membuat module adalah sebagai berikut :
dari menu tool pilih add procedure lalu klik option function, lalu buat dengan nama ada_mahasiswa, n ketikan coding berikut :



Public Function ada_mahasiswa(kode As String) As Boolean
    Dim tbl_x As String
    Dim x As Boolean
    Dim rec As New ADODB.Recordset
  
    tbl_x = "select kode_siswa  from siswa where kode_siswa='" & kode & "'"
    rec.Open tbl_x, con
  
    x = False
  
    With rec
        If Not (.BOF And .EOF) Then
            x = True
        End If
    End With
    rec.Close
  
    ada_siswa = x
End Function
fungsi ini akan mencari data siswa yang ada pada table siswa, dan fungsi bisa dipanggil dalam pembuatan form lain.

Segitu dulu ya, semoga bermanfaat, jika ada pertanyaan silahkan komen za...

Salam coding...!