Делаю так:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ExcelDS As New AfalinaSoft.Reports.XLRDatasource()
Dim commReport As New SqlClient.SqlCommand()
Dim adpReport As New SqlClient.SqlDataAdapter()
Dim dsReport As New Data.DataSet()
Dim p1 As New SqlClient.SqlParameter()
Dim p2 As New SqlClient.SqlParameter()
Dim p3 As New SqlClient.SqlParameter()
Dim strSQL As String
strSQL = "release7.dbo.boss_41N"
p1.ParameterName = "@depart"
p2.ParameterName = "@m_dt1"
p2.ParameterName = "@m_dt2"
p1.SqlDbType = SqlDbType.SmallInt
p2.SqlDbType = SqlDbType.DateTime
p3.SqlDbType = SqlDbType.DateTime
p1.Value = Me.ComboBox1.SelectedValue
p2.Value = Me.DateTimePicker1.Value
p3.Value = Me.DateTimePicker2.Value
MsgBox(p3.Value)
commReport.CommandType = CommandType.StoredProcedure
commReport.Connection = Me.connRelease7
commReport.CommandText = strSQL
commReport.Parameters.Clear()
commReport.Parameters.Add(p1)
commReport.Parameters.Add(p2)
commReport.Parameters.Add(p3)
adpReport.SelectCommand = commReport
adpReport.Fill(dsReport, "RPT")
Me.XlReport1.Datasources.Clear()
ExcelDS.Alias = "al1"
ExcelDS.DataAdapter = adpReport
ExcelDS.DataMember = "RPT"
ExcelDS.DataSource = dsReport
ExcelDS.Range = "range1"
Me.XlReport1.Datasources.Add(ExcelDS)
Me.XlReport1.Report()
Сразу говорю: соединение с уже БД открыто.
На строке adpReport.Fill(dsReport, "RPT") возникает ошибка :
An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: System error.

Что не так?Не могу понять.