vb6.0调用CrystalReport7报表,提示cannot open SQL Server

[sun8330]

以下程序在运行时,在红色代码部分,提示cannot open SQL Server,但报表在CrystalReport中,是可以预览的,crptobj为水晶报表控件,代码如下:
Private Sub butPrint_Click()
On Error GoTo showerror
If Not IsDate(txtDateFm.Text) Or Not IsDate(txtDateTo.Text) Then
MsgBox "日期格式不对，日期格式为(MM/DD/YYYY)", vbOKOnly, "系统提示"
txtDateFm.SetFocus
Exit Sub
End If
crptobj.StoredProcParam(0) = txtbType.Text
crptobj.StoredProcParam(1) = txtDateFm.Text
crptobj.StoredProcParam(2) = txtDateTo.Text
crptobj.StoredProcParam(3) = Check1.Value
crptobj.StoredProcParam(4) = Check2.Value
crptobj.Action = 1

Exit Sub
showerror:
ShowErrMsg (Err.Description)
End Sub
Private Sub butQuit_Click()
Unload Me
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
Check2.Value = 0
Check2.Visible = False
Else
Check2.Value = 1
Check2.Visible = True
End If
End Sub

Private Sub Form_Load()
frmPrintTiaoMa.Height = Frame1.Height + 1300
frmPrintTiaoMa.Width = Frame1.Width + 400
frmPrintTiaoMa.Top = (Screen.Height - frmPrintTiaoMa.Height) / 4
frmPrintTiaoMa.Left = (Screen.Width - frmPrintTiaoMa.Width) / 2
crptobj.WindowState = crptMaximized
crptobj.WindowMinButton = False
txtDateFm.Text = "01/01/1900"
txtDateTo.Text = "12/31/2050"
crptobj.WindowLeft = 0
crptobj.WindowTop = 0
crptobj.ReportFileName = App.Path & "\report\tmReport.rpt"
crptobj.Connect = strRptDSN
crptobj.DiscardSavedData = True
End Sub

[阿呆哥]

那我不知道啦，不知道还有没有活的版主在，让他帮你转到图表区去，你自己也可以试试。
管理菜单下面。

[阿呆哥]

7的控件没用过。你要跟踪下，看看是哪行出错的。
strRptDSN 是什么值？
数据库存在不？用户/密码是否正确

[sun8330]

跟踪 crptobj.Action = 1 这一行执行完了就报错了,strRptDSN是SQL的连接DSN,帐号密码全是正确的,数据库也是存在的,在CrystalReport中报表是可以预览的