Membuat Laporan Periodik

ISI COMBOBOX TANGGAL AWAL DAN TANGGAL AKHIR SESUAI DATA YANG ADA DALAM TABEL 
Private Sub Form_Load()
KONEKSI = "DSN=pos"

adobeli.ConnectionString = KONEKSI
adobeli.CommandType = adCmdText
adobeli.RecordSource = "select * from beli"
adobeli.Refresh
adobeli.Recordset.Sort = "faktur"
adoviewbeliperiodik.ConnectionString = KONEKSI
adoviewbeliperiodik.CommandType = adCmdText
adoviewbeliperiodik.RecordSource = "select * from view_beli_periodik"
adoviewbeliperiodik.Refresh
adoviewbeliperiodik.Recordset.Sort = "faktur"

XTANGGAL = ""
Do While Not adobeli.Recordset.EOF
If adobeli.Recordset!tanggalbeli <> XTANGGAL Then
    txtmulai.AddItem Format(adobeli.Recordset!tanggalbeli, "DD-MM-YYYY")
    txtsampai.AddItem Format(adobeli.Recordset!tanggalbeli, "DD-MM-YYYY")
End If
XTANGGAL = adobeli.Recordset!tanggalbeli
adobeli.Recordset.MoveNext
Loop
txtmulai.Text = ""
txtsampai.Text = ""

End Sub
TOMBOL CETAK
Private Sub CMDCETAK_Click()

MULAI = Year(txtmulai.Text) & "," & Month(txtmulai.Text) & "," & Day(txtmulai.Text)
AKHIR = Year(txtsampai.Text) & "," & Month(txtsampai.Text) & "," & Day(txtsampai.Text)
CR.SelectionFormula = "{view_beli_periodik.tanggalbeli}>=DATE(" & MULAI & ") And {view_beli_periodik.tanggalbeli}<=DATE(" & AKHIR & ")"
CR.ReportFileName = App.Path & "/Laporan/Laporan Pembelian Periodik.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.PrintReport
End Sub