Assalamualaikum Wr.Wb and salam sejahtera buat para expert semua,
ane newbie dalam vb6.0 dan Crystal Report ingin bertanya pada agan2 semua

ada yang tau letak kesalahan ane dimana? cz susah tuk di tracing errornya
setiap ane run programnya data yang dipanggil ke crystal reports sudah keluar namun selalu muncul msg box type mismatch

ini coding view k msflexgrid :

Sub viewby()

Dim no As Integer

Call Buka

Dim pil As New ADODB.Recordset

Set pil = New ADODB.Recordset

Dim pilihan, A, b, q, r, sql As String

pilihan = cbpilihan.Text

A = tglawal.Value

b = tglakhir.Value

q = Format$(A, "yyyy-mm-dd")

r = Format$(b, "yyyy-mm-dd")

no = 0

Select Case pilihan

 Case "All"

 cmdview.Visible = False

 dglistapprove.Clear

 frametgl.Visible = False

 sql = "Call viewallpinjam"

 Set pil = Conn.Execute(sql)

 

 Case "Tanggal"

 dglistapprove.Clear

 cmdview.Visible = True

 frametgl.Visible = True

 frametgl.Enabled = True

 A = tglawal.Value

 b = tglakhir.Value

 sql = "Call viewpnjmbytgl('" & q & "','" & r & "')"

 Set pil = Conn.Execute(sql)

 Case "Belum disetujui"

 cmdview.Visible = False

 dglistapprove.Clear

 frametgl.Visible = False

 sql = "Call viewpinjamblmck"

 Set pil = Conn.Execute(sql)

 Case "Disetujui"

 cmdview.Visible = False

 dglistapprove.Clear

 frametgl.Visible = False

 sql = "Call viewpinjambyapp"

 Set pil = Conn.Execute(sql)

 Case "Ditolak"

 cmdview.Visible = False

 dglistapprove.Clear

 frametgl.Visible = False

 sql = "Call viewpinjambyrjct"

 Set pil = Conn.Execute(sql)

End Select

With dglistapprove

 .Row = 0

 .Col = 0

 .Cols = 12

 .ColWidth(0) = 350

 .ColWidth(1) = 2500

 .ColWidth(2) = 3500

 .ColWidth(3) = 3500

 .ColWidth(4) = 1500

 .ColWidth(5) = 1500

 '.ColWidth(6) = 1600

 .ColWidth(7) = 5000

 .ColWidth(8) = 1500

 .ColWidth(9) = 1500

 .ColWidth(10) = 2000

 .TextMatrix(0, 0) = "No."

 .TextMatrix(0, 1) = "No.Faktur"

 .TextMatrix(0, 2) = "Pemohon"

 .TextMatrix(0, 3) = "Peminjam"

 .TextMatrix(0, 4) = "Tanggal Pinjam"

 .TextMatrix(0, 5) = "Tanggal Kembali"

 '.TextMatrix(0, 6) = "Part Number"

 .TextMatrix(0, 7) = "Nama Barang"

 .TextMatrix(0, 8) = "Jumlah Permintaan"

 .TextMatrix(0, 9) = "Jumlah Approve"

 .TextMatrix(0, 10) = "Status"

 '.TextMatrix(0, 11) = "Keterangan"

 End With

 If pil.BOF Then

Exit Sub

Else

pil.MoveFirst

Do While Not pil.EOF

no = no + 1

dglistapprove.Rows = no + 1

dglistapprove.TextMatrix(no, 0) = no

dglistapprove.TextMatrix(no, 1) = pil!no_faktur

dglistapprove.TextMatrix(no, 2) = pil!pemohon

dglistapprove.TextMatrix(no, 3) = pil!peminjam

dglistapprove.TextMatrix(no, 4) = Format$(pil!tgl_pnjm, "yyyy/mm/dd")

dglistapprove.TextMatrix(no, 5) = Format$(pil!tgl_kmbl, "yyyy/mm/dd")

'dglistapprove.TextMatrix(no, 6) = pil!partno

dglistapprove.TextMatrix(no, 7) = pil!nama

dglistapprove.TextMatrix(no, 8) = pil!jumlah_mnt

dglistapprove.TextMatrix(no, 9) = pil!jumlah_app

dglistapprove.TextMatrix(no, 10) = pil!approve

'dglistapprove.TextMatrix(no, 11) = pil!keterangan

pil.MoveNext

Loop

End If

End Sub

ini coding tuk print :

Private Sub cmdPrint_Click()

Call Buka

Dim pil1 As New ADODB.Recordset

Dim sql1, pilihan1, strdata As String

Dim a1, b1 As Date

Dim cetak As New PageSet.PrinterControl

a1 = tglawal.Value

b1 = tglakhir.Value

pilihan1 = cbpilihan.Text

Adodc1.ConnectionString = Conn

Set cryApp = New CRAXDRT.Application

Set rptApp = cryApp.OpenReport("C:\Documents and Settings\NKP\Desktop\crush it\Report\rptpinjam.rpt")

Select Case pilihan1

 Case "All"

sql1 = "select m.no_faktur,m.pemohon,m.peminjam, b.nama ,d.jumlah_mnt,d.jumlah_app,d.tgl_pnjm,d.tgl_kmbl,d.approve,d.keterangan from dtl_pinjam d inner join dtl_barang b on d.id_barang = b.id_barang inner join mspeminjaman m on d.no_faktur = m.no_faktur order by d.no_faktur asc;"

 'sql1 = "select * from dtl_pinjam order by no_faktur asc;"

 'Set pil1 = Conn.Execute(sql1)

 

 Case "Tanggal"

 sql1 = "Call viewpnjmbytgl('" & a1 & "','" & b1 & "')"

 

 

 Case "Belum disetujui"

 sql1 = "Call viewpinjamblmck"

 

 

 Case "Disetujui"

 sql1 = "Call viewpinjambyapp"

 

 

 Case "Ditolak"

 sql1 = "Call viewpinjambyrjct"

 

 

End Select

 Adodc1.RecordSource = sql1

 Adodc1.Refresh

 CRpeminjaman.Database.SetDataSource Adodc1.Recordset

 PrintPreview.CRViewer1.ReportSource = CRpeminjaman

 PrintPreview.CRViewer1.ViewReport

 PrintPreview.CRViewer1.Zoom 100

 PrintPreview.Show

 PrintPreview.WindowState = 2

 

End Sub

type data di design CR dan di database sudah ane samain, data sudah muncul di CR tapi keluar error msg box melulu. Ane berterima kasih banget kalau ada yang bantuin ane