مشكلة فى طباعة التقرير

هذا هو الكود المستخدم فى طباعة التقرير .....مشعارف والله يا جماعة الخطا فى الكود و لا الأتصال

Private Sub CmdShow_Click()

If Combo1.Text = "" Then

Exit Sub

End If

If IsPrinterInstalled = False Then

MsgBox "áÇ íæÌÏ ØÇÈÚÉ..áÐáß áÇ íãßä ÚÑÖ ÇáÊÞÇÑíÑ", vbInformation + vbMsgBoxRight, "íÌÈ ÊËÈíÊ ÇáØÇÈÚÉ"

Exit Sub

Else

Cnn=ADODB.Connection

CNN.Execute "Drop View Qitems"

CNN.Execute "Create View Qitems As Select * from Items Where Kind='" + Combo1.Text + "'"

Crystal.ReportFileName = "itemkind.rpt"

Crystal.Connect = "uid=mega;pwr=loser"

Crystal.Action = 1

End If

End Sub

ارجو المساعدة...شكرا