Internal SQL Server Error

I have the following code and I keep on getting the following error:

 Internal SQL Server error.

Line 160:        da.Fill(dtStudent)

<code>

Private Function CreateStudentDT() As DataTable



Dim cmdStudent As SqlCommand = New SqlCommand

Dim strSPName As String

Dim strSQL As String

Dim dtStudent As New DataTable

cmdStudent.Connection = objConn

cmdStudent.CommandType = CommandType.StoredProcedure

cmdStudent.Parameters.Add("@ParamYear", mprmYear.Code)

cmdStudent.Parameters.Add("@paramDate", mstrParamToDate)

cmdStudent.Parameters.Add("@ParamMonth", mprmMonth.Code)

cmdStudent.CommandText = "AmountMarkedMosad"

objConn.Open()

Dim da As SqlDataAdapter = New SqlClient.SqlDataAdapter(cmdStudent)

da.Fill(dtStudent)

objConn.Close()

Return dtStudent

End Function

 

</code>