Skrip Pencarian Berdasar Tanggal VB6 & MYSQL

rsdata.Open "select * from biodata where DATE_FORMAT(tgl_lahir,'%d-%m-%Y')='" & dttgl.Value & "'", cnmy, adOpenDynamic, adLockOptimistic

Keterangan :
rsdata : recordset yang sudah didefenisikan terlebih dahulu
biodata : tabel yang dipilih
tgl_lahir : kolom tanggal yang dicari
%d-%m-%Y  : format tanggal
dttgl.Value : dtpicker(pada vb6.0) untuk pencarian
cnmy : koneksi mysql yang sudah didefenisikan

NB :
Format Tanggal yang dicari bisa diubah sesuai kebutuhan :
DATE_FORMAT(field_tgl,’%Y’) Untuk mengambil nilai Tahunnya saja,
DATE_FORMAT(field_tgl,’%m’) Untuk mengambil nilai Bulannya saja,
DATE_FORMAT(field_tgl,’%d’) Untuk mengambil nilai Tanggalnya saja.

Ok Sekian & Terimakasih.....