Hi iam new to implement custome code in sssrs when iam created connection in ssrs its throwing error please find the screen shot

Question

when iam previwing report this error is occured
System.Data.SqlClient.SqlException: Login failed for user 'FPS\hariprasad.a'.
   at System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection)
   at System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj)
   at System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj)
   at System.Data.SqlClient.SqlInternalConnectionTds.CompleteLogin(Boolean enlistOK)
   at System.Data.SqlClient.SqlInternalConnectionTds.AttemptOneLogin(ServerInfo serverInfo, String newPassword, Boolean ignoreSniOpenTimeout, Int64 timerExpire, SqlConnection owningObject)
   at System.Data.SqlClient.SqlInternalConnectionTds.LoginNoFailover(String host, String newPassword, Boolean redirectedUserInstance, SqlConnection owningObject, SqlConnectionString connectionOptions, Int64 timerStart)
   at System.Data.SqlClient.SqlInternalConnectionTds.OpenLoginEnlist(SqlConnection owningObject, SqlConnectionString connectionOptions, String newPassword, Boolean redirectedUserInstance)
   at System.Data.SqlClient.SqlInternalConnectionTds..ctor(DbConnectionPoolIdentity identity, SqlConnectionString connectionOptions, Object providerInfo, String newPassword, SqlConnection owningObject, Boolean redirectedUserInstance)
   at System.Data.SqlClient.SqlConnectionFactory.CreateConnection(DbConnectionOptions options, Object poolGroupProviderInfo, DbConnectionPool pool, DbConnection owningConnection)
   at System.Data.ProviderBase.DbConnectionFactory.CreatePooledConnection(DbConnection owningConnection, DbConnec

Answer 1

hi pasted error .iam impleting custom code in ssrs like below
Public Shared Function DeleteData(Byval empno AS Integer) As String
                Dim strResult As String
                Dim conn As New System.Data.SqlClient.SqlConnection
                conn.ConnectionString = "Integrated Security=SSPI;Data Source=172.16.1.111\DATA_SERVICES;Initial Catalog=Recounsiled"
                Dim sql As String
                sql = "sp_empno"
                Dim com As New System.Data.SqlClient.SqlCommand
                com.CommandText = sql
                com.CommandType = System.Data.CommandType.StoredProcedure
                com.Parameters.Add("@empno", System.Data.SqlDbType.Int).Value =empno
                com.Connection = conn
                Try
                                com.Connection.Open()
                                com.ExecuteNonQuery()
        com.Connection.Close()
                                strResult = "Successful"
                Catch ex As Exception
                                com.Connection.Close()
                                strResult = ex.ToString()
                End Try
                return strResult
End Function