QUERY VB

Public Koneksi As New ADODB.Connection

Public Sub KoneksiDatabase()
On Error GoTo konekErr

If Koneksi.State = 1 Then Koneksi.Close
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\DBNILAI.mdb;Persist Security Info=False"
Exit Sub

konekErr:
    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub


Private Sub Form_Load()
Dim kodecari As String
kodecari = "M1"
KoneksiDatabase
Adodc1.ConnectionString = Koneksi.ConnectionString
Adodc1.RecordSource = "SELECT * FROM MHS WHERE KodeMHS = '" & kodecari & "' "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub


Silakan download