Menampilkan Database dari Datagrid ke Datepicker pada VB6

Dari pada kagak ada kerjaan mending coba sharing imu dah,hihihi :Daku orang programer, tapi masuk kerja baru belajar ngoding, jadi pemula dan banyak banget masalah2 yang aku temuin meskipun kalo sekarang menurutku guampang, hahaaa (namanya juga pemula, :D)

permasalahan awal yang aku temuin pas ngoding sepele, gimana menampilkan database 'tanggal' dari datagrid ke datepicker pada vb6.
logikanya :
jika 'tanggal' NULL maka datepicker.checkbox = false
tapi jika 'tanggal' terisi maka datepicker.value
sekarang aku sharing solusinya :berikut tampilan screenshot desain form yang udah aku buat.

berikut tampilan form saat di run

saat di klik datagrid pada record nama 'rini' hasilnya akan seperti berikut,

dan saat di klik datagrid pada record nama 'indah' hasilnya akan menjadi berikut,

berikut source codenya :

Private Sub DataGrid1_Click()

If Not Adodc1.Recordset.EOF Then

    tnama.Text = Adodc1.Recordset!nama

    dtanggal.Value = IIf(IsNull(Adodc1.Recordset!tgl_lahir) = True, "", Adodc1.Recordset!tgl_lahir)

End If

End Sub

sekian ;-)