Visual Basic

#Region "Public Function SelectAttendanceLetters(ByVal schoolid As Integer, ByVal schoolyear As Integer) As DataTable"
    Public Function SelectAttendanceLetters(ByVal schoolid As Integer, ByVal schoolyear As Integer, ByVal milestone As Integer, ByVal term As Integer) As DataTable
        Dim dt As DataTable = New DataTable()

        'Const sql As String = "SELECT alm.SCHOOLYEAR, RTRIM(als.PERMNUM) AS PERMNUM, alm.SCHOOLNUM, alm.STULINK, alm.MILESTONE_CODE " _
        '    & ", RTRIM(als.LASTNAME) + ', ' + RTRIM(als.FIRSTNAME) + CASE WHEN MIDDLENAME IS NULL THEN '' WHEN RTRIM(MIDDLENAME) = '' THEN '' ELSE ' ' + SUBSTRING(RTRIM(MIDDLENAME), 1, 1) END AS STUDENTNAME " _
        '    & ", als.GRADE , alm.MILESTONE_DATE, alm.ABSENCES, alm.TARDIES, als.HOMELNGCOR, alm.SEMESTER " _
        '    & "FROM AtnLtrMilestone alm INNER JOIN AtnLtrASTU als ON alm.STULINK = als.STULINK " _
        '    & "WHERE alm.SCHOOLNUM = @schoolnum " _
        '    & "AND alm.SCHOOLYEAR = @schoolyear " _
        '    & "AND alm.MILESTONE_CODE = @milestone " _
        '    & "AND alm.SEMESTER = @semester " _
        '    & "AND (alm.PRINTED <> 'Y' OR alm.PRINTED IS NULL) " _
        '    & "AND (alm.PRINTED <> 'N' OR alm.PRINTED IS NULL) " _
        '    & "ORDER BY als.HOMELNGCOR, alm.MILESTONE_DATE, als.LASTNAME, als.FIRSTNAME, MIDDLENAME; "

        Const sql As String = ";WITH CTE_ASTU (SCHOOLYEAR,PERMNUM,SCHOOLNUM,STULINK,MILESTONE_CODE,STUDENTNAME,LASTNAME,FIRSTNAME,MIDDLENAME,GRADE,MILESTONE_DATE,ABSENCES,TARDIES,HOMELNGCOR,SEMESTER)  AS ( " _
          & "SELECT alm.SCHOOLYEAR as SCHOOLYEAR, RTRIM(als.PERMNUM) AS PERMNUM, alm.SCHOOLNUM as SCHOOLNUM, alm.STULINK as STULINK, alm.MILESTONE_CODE as MILESTONE_CODE " _
          & ", RTRIM(als.LASTNAME) + ', ' + RTRIM(als.FIRSTNAME) + CASE WHEN MIDDLENAME IS NULL THEN '' WHEN RTRIM(MIDDLENAME) = '' THEN '' ELSE ' ' + SUBSTRING(RTRIM(MIDDLENAME), 1, 1) END AS STUDENTNAME " _
          & ", als.LASTNAME as LASTNAME,als.FIRSTNAME as FIRSTNAME, CASE WHEN MIDDLENAME IS NULL THEN '' ELSE MIDDLENAME END AS MIDDLENAME " _
          & ", als.GRADE as GRADE , alm.MILESTONE_DATE as MILESTONE_DATE, alm.ABSENCES as ABSENCES, alm.TARDIES as TARDIES, als.HOMELNGCOR as HOMELNGCOR, alm.SEMESTER as SEMESTER" _
          & "FROM AtnLtrMilestone alm INNER JOIN AtnLtrASTU als ON alm.STULINK = als.STULINK " _
          & "WHERE alm.SCHOOLNUM = @schoolnum " _
          & "AND alm.SCHOOLYEAR = @schoolyear " _
          & "AND alm.MILESTONE_CODE = @milestone " _
          & "AND alm.SEMESTER = @semester " _
          & "AND (alm.PRINTED <> 'Y' OR alm.PRINTED IS NULL) " _
          & "AND (alm.PRINTED <> 'N' OR alm.PRINTED IS NULL) " _
          & ") " _
          & "SELECT * " _
          & " FROM CTE_ASTU " _
          & "ORDER BY HOMELNGCOR, MILESTONE_DATE, LASTNAME, FIRSTNAME, MIDDLENAME; "

     

        Using con As SqlConnection = DB.OpenConnectionCampusOPS()
            Using da As SqlDataAdapter = New SqlDataAdapter(sql, con)

                Try
                    da.SelectCommand.Parameters.Add("@schoolnum", SqlDbType.Int).Value = schoolid
                    da.SelectCommand.Parameters.Add("@schoolyear", SqlDbType.Int).Value = schoolyear
                    da.SelectCommand.Parameters.Add("@milestone", SqlDbType.Int).Value = milestone
                    da.SelectCommand.Parameters.Add("@semester", SqlDbType.Int).Value = term
                    da.Fill(dt)
                Catch ex As Exception

                End Try

            End Using
        End Using

        Return dt

    End Function
#End Region

In an existing vb.net 2010 app, I am getting the following error message when I debug the code and use a sql server database:

System.ArgumentException {"Keyword not supported;'testdb; database'."}

The error message come from the following code:

#Region "Public Shared Function OpenConnectionO() As SqlConnection"
    Public Shared Function OpenConnectionA() As SqlConnection
         
             Dim con As SqlConnection = New SqlConnection(SiteHelper.SQLConnectionStringO)
             con.Open()

            Return con

    End Function
 #End Region

This is code that has existed for a very long time. What is new is the connection is being made to a new test database that has been setup within the last 6 months. 

The config file looks like the following:

<connectionStrings>
     <clear />
         <add name="sqlO" connectionString="TestI; Database=OPS; User ID=Usr; Password=etxxxxxx;" />

  </connectionStrings>

Thus would you tell me what you suggest I try so that I can determine where the error lies?