COMException was unhandled by user code

Partial Class reports
    Inherits System.Web.UI.Page
 
   Protected Sub btnReport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReport.Click
 
        txtAA.Text = getAccepting("A")
        txtAB.Text = getAccepting("B")
        txtAC.Text = getAccepting("C")
        txtAD.Text = getAccepting("D")
        txtAE.Text = getAccepting("E")
        txtAF.Text = getAccepting("F")
        txtAG.Text = getAccepting("G")
        txtAH.Text = getAccepting("H")
        txtAI.Text = getAccepting("I")
    End Sub
    
 
Public Function getAccepting(ByVal abc)
 
        Dim MyConn
        Dim RS
        Dim strConn
        Dim sql
 
        strConn = "Data Source=DRDBSQLDEV1\DRISQLDEV1; Initial Catalog=DRDEIF1T; Integrated Security=True"
 
        MyConn = CreateObject("ADODB.Connection")
        MyConn.ConnectionString = strConn
        MyConn.Open()
 
        sql = "Select Count(BIT_Accepting" & abc & ") as A FROM TB_EIF_Main WHERE DTE_InterView between  '" & txtBegDate.Text & "' and  '" & txtEndDate.Text & "' and BIT_Accepting" & abc & " = 'True'"
 
        RS = MyConn.Execute(sql)
        getAccepting = RS("A").Value
        RS.close()
        MyConn.close()
 
    End Function
 
End Class