Koding Cari di VB .NET Access

 Koding Cari di VB .NET Access

 Private Sub Tcari_TextChanged(sender As Object, e As EventArgs) Handles Tcari.TextChanged
        cmd = New OleDbCommand("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
        dr = cmd.ExecuteReader()
        dr.Read()
        If dr.HasRows Then
            da = New OleDbDataAdapter("Select * from admin where username like '%" & Tcari.Text & "%' ", conn)
            ds = New DataSet
            da.Fill(ds, "ketemu")
            DataGridView1.DataSource = ds.Tables("ketemu")
            DataGridView1.ReadOnly = True
            Lcari.ForeColor = Color.Azure
        Else
            MsgBox("Data Gak ADA!!!")
        End If
    End Sub