Can someone please look at my code especially the bolded parts to see what might be wrong?

 

Here's my code:

 

        '------------------------------------------------------------

        ' name: DisplayAsString( _objFieldValue as object) As String

        '------------------------------------------------------------

        Function DisplayAsString( _objFieldValue as object) As String

 

                dim strDisplay as String

 

                if _objFieldValue Is System.DBNull.Value then

                &nbs p;       strDisplay = String.Empty

                else

                &nbs p;       strDisplay = _objFieldValue.ToString()

                end if

 

                return strDisplay

 

        End Function

       

        '----------------------------------------------------------------

        ' name: BindDropDownList()

        '----------------------------------------------------------------

        Sub BindDropDownList( _strDomID as String )

       

        Dim BusinessNameValue As String

  

   

    Dim strSQL as String

    Dim strConnect As String   

    Dim conClient As SqlConnection

    Dim cmdSelect As New System.Data.SqlClient.SQLCommand

    Dim dtrClient As SqlDataReader

   

    'Get connection string from Web.Config