Membuat Form Pencarian Data Mahasiswa Dengan VB6

Terima kasih sebelumnya sudah mau mampir di blog saya ini. Saya coba tuangkan ilmu saya ini untuk dibagikan kepada khalayak umum yang mau terus belajar. Saya tuangkan ilmu bagaimana membuat pencarian data dengan VB6 dan database Access. Metode yang digunakan menggunakan ADODB.

Buat design form seperti berikut ini

Berikut Code Listnya

Dim TR As ADODB.Recordset
Dim DM As ADODB.Connection
Sub LIST()
Dim LV As ListItem

If Not TR.EOF Then
TR.MoveFirst
Do While Not TR.EOF
Set LV = ListView1.ListItems.Add(, , TR.Fields(0))
LV.SubItems(1) = TR.Fields(1)
LV.SubItems(2) = TR.Fields(2)
LV.SubItems(3) = TR.Fields(3)
LV.SubItems(4) = TR.Fields(4)
TR.MoveNext
Loop
Else
MsgBox "Data tidak ada", vbInformation, "Peringatan"
End If
End Sub

Private Sub Command1_Click()
Dim VS As String
Set TR = New ADODB.Recordset
VS = "Select * from Siswa where Nama like '" & Text1 & "%'"
TR.Open VS, DM, adOpenDynamic, adLockOptimistic
ListView1.ListItems.Clear
LIST

End Sub

Private Sub Command2_Click()
If MsgBox("Apakah Anda ingin keluar dari Aplikasi?", vbQuestion + vbYesNo, "Keluar") = vbYes Then
Form3.Show
Unload Me
End If

End Sub

Private Sub Form_Load()
Set DM = New ADODB.Connection
DM.Open ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & App.Path & "\Mahasiswa.mdb")

Set TR = New ADODB.Recordset
TR.Open "Siswa", DM, adOpenDynamic, adLockOptimistic

LIST
End Sub