[Programmer-VB]

[Eris Kadarisman]

Dear All,
Mohon bantuannya, bener ngak code seperti ini
Mau mindahin data di filter berdasarkan tanggal (dtpicker.1) dari tabel1 ke 
tabel2


Private Sub Command1_Click()
Dim sql As String
sql = "select * from tabel where DATE = '" & DTPicker2.Value & "'"


'MsgBox("Yakin mau ditransfer?", vbQuestion + vbYesNo, "") = vbYes
        Data2.Recordset.AddNew
                Data2.Recordset.Fields("DATE") = Data1.Recordset.Fields("DATE")
                Data2.Recordset.Fields("STYLE") = 
Data1.Recordset.Fields("STYLE")
                Data2.Recordset.Fields("RECEIVING") = 
Data1.Recordset.Fields("RECEIVING")
                dst
            Data2.Recordset.Update
        Data2.Refresh

End Sub

saya coba tapi pindahnya tidak terfilter

Salam,
Eris (Pemula)