[Programmer-VB] Mohon bantuannaya, cetak repoortnya tidak mau jalan....!

[D.N.Adam]

Teman-teman saya ada error membuat report dari data environmetn 
bawaan di VB 6.0 menggunakan Data Report yang ada pad VB 6.0. Script 
program sbb:


Private Sub TbTampil_Click()
    Set Rs = New ADODB.Recordset
    
    SQL = ""
    SQL = "SELECT Pembelian.NoFaktur,Pembelian.TglFaktur, " _
        & " Supplier.NmSup,DetPembelian.TglExpired, " _
        & " DetPembelian.KdObat,Obat.NmObat,Obat.Satuan, " _
        & " DetPembelian.HrgBeli,DetPembelian.Banyak, " _
        & " (DetPembelian.HrgBeli * DetPembelian.Banyak) AS Total " _
        & " From Pembelian, DetPembelian, Obat, Supplier " _
        & " WHERE Pembelian.NoFaktur=DetPembelian.NoFaktur " _
        & " AND Pembelian.KdSup=Supplier.KdSup AND " _
        & " DetPembelian.KdObat=Obat.KdObat AND " _
        & " ((Pembelian.TglFaktur >= '" & TxtTglAwal.Value & "') " _
        & " And (Pembelian.TglFaktur <= '" & TxtTglAkhir.Value & 
"' ))"
    Set Rs = Conn.Execute(SQL)
    If Rs.BOF Then
        MsgBox "Maaf pembelian dengan periode tanggal " & Format
(TxtTglAwal.Value, "dd MMMM yyyy") & " S/D " & Format
(TxtTglAkhir.Value, "dd MMMM yyyy") & " tidak tersedia !", 
vbInformation + vbOKOnly, "Information"
    Else
        DE.Commands(13).CommandText = SQL
        FmLapBeliPeriode.Sections("Section2").Controls
("Label24").Caption = " Periode   : " & Format(TxtTglAwal.Value, "dd 
MMMM yyyy") & " S/D " & Format(TxtTglAkhir.Value, "dd MMMM yyyy")
        FmLapBeliPeriode.Sections("Section2").Controls
("Label27").Caption = " Tanggal Cetak :  " & Format(Date, "dd MMMM 
yyyy")
        
        FmLapBeliPeriode.Refresh
        FmLapBeliPeriode.WindowState = 2
        FmLapBeliPeriode.Show
    End If
End Sub

Permasalahan muncul waktu mau cetak per periode tanggal muncul error/
pesan sbb:
 Error type data mismatch in creteria expression

Terus nanti saat di DEBUG menunjukkan  error di :
........
Set Rs = Conn.Execute(SQL)
........

Mohon bantuuan teman-teman di millis ini.Thank

Salam,
Adam